Submission #186917

Source Code Expand

#!/usr/bin/perl

use strict;
use warnings;

my $N = <STDIN>;
chomp($N);
$N++;
$N = 1 if $N == 13;

print $N."\n";

Submission Info

Submission Time
Task A - 来月は何月？
User minasa
Language Perl (5.14.2)
Score 100
Code Size 125 Byte
Status AC
Exec Time 29 ms
Memory 1312 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 12
Set Name Test Cases
All test_1.txt, test_10.txt, test_11.txt, test_12.txt, test_2.txt, test_3.txt, test_4.txt, test_5.txt, test_6.txt, test_7.txt, test_8.txt, test_9.txt
Case Name Status Exec Time Memory
test_1.txt AC 26 ms 1120 KB
test_10.txt AC 26 ms 1136 KB
test_11.txt AC 26 ms 1196 KB
test_12.txt AC 26 ms 1192 KB
test_2.txt AC 26 ms 1196 KB
test_3.txt AC 29 ms 1184 KB
test_4.txt AC 26 ms 1184 KB
test_5.txt AC 25 ms 1192 KB
test_6.txt AC 25 ms 1312 KB
test_7.txt AC 26 ms 1192 KB
test_8.txt AC 26 ms 1196 KB
test_9.txt AC 26 ms 1312 KB