Submission #162116


Source Code Expand

#!/usr/bin/perl

use strict;
use warnings;

my $A = <STDIN>;
chomp($A);

if ($A eq "a") {
	print "-1\n";
} else {
	print "a\n";
}

Submission Info

Submission Time
Task B - 辞書式順序
User minasa
Language Perl (5.14.2)
Score 100
Code Size 143 Byte
Status AC
Exec Time 28 ms
Memory 1316 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 4
AC × 19
Set Name Test Cases
Sample subtask0_sample01.txt, subtask0_sample02.txt, subtask0_sample03.txt, subtask0_sample04.txt
All subtask0_sample01.txt, subtask0_sample02.txt, subtask0_sample03.txt, subtask0_sample04.txt, subtask1_01.txt, subtask1_02.txt, subtask1_03.txt, subtask1_04.txt, subtask1_05.txt, subtask1_06.txt, subtask1_07.txt, subtask1_08.txt, subtask1_09.txt, subtask1_10.txt, subtask1_11.txt, subtask1_12.txt, subtask1_13.txt, subtask1_14.txt, subtask1_15.txt
Case Name Status Exec Time Memory
subtask0_sample01.txt AC 25 ms 1136 KB
subtask0_sample02.txt AC 26 ms 1180 KB
subtask0_sample03.txt AC 26 ms 1188 KB
subtask0_sample04.txt AC 26 ms 1184 KB
subtask1_01.txt AC 26 ms 1312 KB
subtask1_02.txt AC 25 ms 1188 KB
subtask1_03.txt AC 25 ms 1184 KB
subtask1_04.txt AC 26 ms 1192 KB
subtask1_05.txt AC 25 ms 1188 KB
subtask1_06.txt AC 25 ms 1192 KB
subtask1_07.txt AC 26 ms 1188 KB
subtask1_08.txt AC 26 ms 1192 KB
subtask1_09.txt AC 25 ms 1184 KB
subtask1_10.txt AC 25 ms 1180 KB
subtask1_11.txt AC 26 ms 1188 KB
subtask1_12.txt AC 26 ms 1176 KB
subtask1_13.txt AC 26 ms 1316 KB
subtask1_14.txt AC 28 ms 1132 KB
subtask1_15.txt AC 27 ms 1188 KB