提出 #7115

ソースコード 拡げる

my $q = <STDIN>;
chomp $q;
my $ret;
if ($q % 4 == 0) {
    $ret = 1;
    if ($q % 100 == 0) {
        $ret = 0;
        if ($q % 400 == 0) {
            $ret = 1;
        }
    }
}
else {
    $ret = 0;
}
print $ret ? "YES\n" : "NO\n";

提出情報

提出日時
問題 A - うるう年
ユーザ whitebell
言語 Perl (5.14.2)
得点 100
コード長 251 Byte
結果 AC
実行時間 33 ms
メモリ 1080 KB

コンパイルエラー

./Main.pl syntax OK

ジャッジ結果

セット名 All
得点 / 配点 100 / 100
結果
AC × 44
セット名 テストケース
All 00_sample_00.txt, 00_sample_01.txt, 00_sample_02.txt, 00_sample_03.txt, 01_rnd_00.txt, 01_rnd_01.txt, 01_rnd_02.txt, 01_rnd_03.txt, 01_rnd_04.txt, 01_rnd_05.txt, 01_rnd_06.txt, 01_rnd_07.txt, 01_rnd_08.txt, 01_rnd_09.txt, 01_rnd_10.txt, 01_rnd_11.txt, 01_rnd_12.txt, 01_rnd_13.txt, 01_rnd_14.txt, 01_rnd_15.txt, 01_rnd_16.txt, 01_rnd_17.txt, 01_rnd_18.txt, 01_rnd_19.txt, 02_100_00.txt, 02_100_01.txt, 02_100_02.txt, 02_100_03.txt, 02_100_04.txt, 02_100_05.txt, 02_100_06.txt, 02_100_07.txt, 02_100_08.txt, 02_100_09.txt, 02_100_10.txt, 02_100_11.txt, 02_100_12.txt, 02_100_13.txt, 02_100_14.txt, 02_100_15.txt, 02_100_16.txt, 02_100_17.txt, 02_100_18.txt, 02_100_19.txt
ケース名 結果 実行時間 メモリ
00_sample_00.txt AC 24 ms 896 KB
00_sample_01.txt AC 23 ms 916 KB
00_sample_02.txt AC 23 ms 888 KB
00_sample_03.txt AC 24 ms 868 KB
01_rnd_00.txt AC 25 ms 888 KB
01_rnd_01.txt AC 22 ms 908 KB
01_rnd_02.txt AC 23 ms 908 KB
01_rnd_03.txt AC 23 ms 908 KB
01_rnd_04.txt AC 24 ms 916 KB
01_rnd_05.txt AC 25 ms 940 KB
01_rnd_06.txt AC 24 ms 940 KB
01_rnd_07.txt AC 23 ms 912 KB
01_rnd_08.txt AC 22 ms 916 KB
01_rnd_09.txt AC 24 ms 916 KB
01_rnd_10.txt AC 23 ms 912 KB
01_rnd_11.txt AC 23 ms 912 KB
01_rnd_12.txt AC 33 ms 1080 KB
01_rnd_13.txt AC 23 ms 912 KB
01_rnd_14.txt AC 23 ms 1044 KB
01_rnd_15.txt AC 24 ms 916 KB
01_rnd_16.txt AC 23 ms 920 KB
01_rnd_17.txt AC 23 ms 888 KB
01_rnd_18.txt AC 24 ms 916 KB
01_rnd_19.txt AC 24 ms 1032 KB
02_100_00.txt AC 23 ms 916 KB
02_100_01.txt AC 23 ms 916 KB
02_100_02.txt AC 24 ms 908 KB
02_100_03.txt AC 24 ms 920 KB
02_100_04.txt AC 24 ms 920 KB
02_100_05.txt AC 23 ms 908 KB
02_100_06.txt AC 25 ms 908 KB
02_100_07.txt AC 24 ms 912 KB
02_100_08.txt AC 24 ms 948 KB
02_100_09.txt AC 23 ms 912 KB
02_100_10.txt AC 24 ms 884 KB
02_100_11.txt AC 23 ms 908 KB
02_100_12.txt AC 23 ms 920 KB
02_100_13.txt AC 23 ms 916 KB
02_100_14.txt AC 24 ms 912 KB
02_100_15.txt AC 23 ms 904 KB
02_100_16.txt AC 22 ms 912 KB
02_100_17.txt AC 22 ms 908 KB
02_100_18.txt AC 23 ms 892 KB
02_100_19.txt AC 23 ms 916 KB