提出 #200280


ソースコード 拡げる

Copy
chomp(my $y = <>);
chomp(my $m = <>);
chomp(my $d = <>);
if ($m <= 2) {$m += 12; $y -= 1;}

$days1 = 365 * $y + int(abs($y/ 4)) - int(abs($y / 100)) + int(abs($y / 400)) + int(abs(306 * ($m+1)/10)) + $d -429;
$y = 2014;$m = 5; $d = 17; 
$days2 = 365 * $y + int(abs($y/ 4)) - int(abs($y / 100)) + int(abs($y / 400)) + int(abs(306 * ($m+1)/10)) + $d -429; 
print ($days2 - $days1,"\n");

提出情報

提出日時
問題 A - 経過日数
ユーザ moheiji
言語 Perl (5.14.2)
得点 100
コード長 392 Byte
結果 AC
実行時間 26 ms
メモリ 1060 KB

コンパイルエラー

./Main.pl syntax OK

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 100 / 100
結果
AC × 4
AC × 24
セット名 テストケース
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, subtask1_16.txt, subtask1_17.txt, subtask1_18.txt, subtask1_19.txt, subtask1_20.txt
ケース名 結果 実行時間 メモリ
subtask0_sample01.txt AC 22 ms 1056 KB
subtask0_sample02.txt AC 23 ms 1060 KB
subtask0_sample03.txt AC 22 ms 980 KB
subtask0_sample04.txt AC 22 ms 1060 KB
subtask1_01.txt AC 22 ms 920 KB
subtask1_02.txt AC 22 ms 932 KB
subtask1_03.txt AC 23 ms 928 KB
subtask1_04.txt AC 23 ms 1060 KB
subtask1_05.txt AC 23 ms 976 KB
subtask1_06.txt AC 23 ms 924 KB
subtask1_07.txt AC 22 ms 1052 KB
subtask1_08.txt AC 22 ms 1044 KB
subtask1_09.txt AC 23 ms 924 KB
subtask1_10.txt AC 22 ms 980 KB
subtask1_11.txt AC 26 ms 932 KB
subtask1_12.txt AC 23 ms 1052 KB
subtask1_13.txt AC 23 ms 924 KB
subtask1_14.txt AC 22 ms 1052 KB
subtask1_15.txt AC 23 ms 1052 KB
subtask1_16.txt AC 23 ms 1056 KB
subtask1_17.txt AC 23 ms 928 KB
subtask1_18.txt AC 22 ms 924 KB
subtask1_19.txt AC 23 ms 940 KB
subtask1_20.txt AC 22 ms 1056 KB