結果

問題 No.406 鴨等間隔の法則
ユーザー tailstails
提出日時 2016-08-06 00:09:08
言語 Perl
(5.38.2)
結果
AC  
実行時間 455 ms / 2,000 ms
コード長 88 bytes
コンパイル時間 359 ms
コンパイル使用メモリ 5,324 KB
実行使用メモリ 31,880 KB
最終ジャッジ日時 2023-09-21 17:53:15
合計ジャッジ時間 8,543 ms
ジャッジサーバーID
（参考情報） 		judge15 / judge13
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 107 ms
15,828 KB
testcase_01 AC 6 ms
5,376 KB
testcase_02 AC 5 ms
5,240 KB
testcase_03 AC 6 ms
5,268 KB
testcase_04 AC 351 ms
29,624 KB
testcase_05 AC 123 ms
13,876 KB
testcase_06 AC 133 ms
14,412 KB
testcase_07 AC 135 ms
14,860 KB
testcase_08 AC 349 ms
29,280 KB
testcase_09 AC 394 ms
31,636 KB
testcase_10 AC 157 ms
15,740 KB
testcase_11 AC 312 ms
25,880 KB
testcase_12 AC 198 ms
18,244 KB
testcase_13 AC 182 ms
17,580 KB
testcase_14 AC 356 ms
27,176 KB
testcase_15 AC 15 ms
6,652 KB
testcase_16 AC 30 ms
6,944 KB
testcase_17 AC 18 ms
6,064 KB
testcase_18 AC 30 ms
7,336 KB
testcase_19 AC 38 ms
7,368 KB
testcase_20 AC 53 ms
8,260 KB
testcase_21 AC 51 ms
8,404 KB
testcase_22 AC 93 ms
10,936 KB
testcase_23 AC 225 ms
19,372 KB
testcase_24 AC 316 ms
24,476 KB
testcase_25 AC 449 ms
31,880 KB
testcase_26 AC 455 ms
31,700 KB
testcase_27 AC 180 ms
31,804 KB
testcase_28 AC 361 ms
31,708 KB
testcase_29 AC 451 ms
31,780 KB
testcase_30 AC 448 ms
31,392 KB
testcase_31 AC 442 ms
30,576 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

<>;($x,$y,@a)=sort{$b-$a}glob<>;$d=$y-$x;!$d|$_-($y+=$d)&&exit!print'NO'for@a;print'YES'
0