結果

問題 No.67 よくある棒を切る問題 (1)
ユーザー %20%20
提出日時 2017-09-29 05:50:59
言語 Perl
(5.38.2)
結果
AC  
実行時間 3,034 ms / 5,000 ms
コード長 87 bytes
コンパイル時間 349 ms
コンパイル使用メモリ 5,888 KB
実行使用メモリ 58,656 KB
最終ジャッジ日時 2024-11-08 12:26:09
合計ジャッジ時間 68,862 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge5
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 2,586 ms
53,888 KB
testcase_01 AC 9 ms
6,272 KB
testcase_02 AC 1,074 ms
24,420 KB
testcase_03 AC 2,077 ms
41,096 KB
testcase_04 AC 2,832 ms
58,536 KB
testcase_05 AC 2,843 ms
58,624 KB
testcase_06 AC 2,866 ms
58,496 KB
testcase_07 AC 2,909 ms
54,352 KB
testcase_08 AC 2,993 ms
54,400 KB
testcase_09 AC 2,938 ms
54,272 KB
testcase_10 AC 2,618 ms
53,360 KB
testcase_11 AC 2,733 ms
56,064 KB
testcase_12 AC 2,502 ms
51,504 KB
testcase_13 AC 2,725 ms
50,432 KB
testcase_14 AC 2,862 ms
52,148 KB
testcase_15 AC 2,576 ms
47,224 KB
testcase_16 AC 2,883 ms
58,516 KB
testcase_17 AC 2,835 ms
58,656 KB
testcase_18 AC 2,868 ms
58,648 KB
testcase_19 AC 3,009 ms
54,348 KB
testcase_20 AC 3,006 ms
54,348 KB
testcase_21 AC 3,034 ms
54,272 KB
testcase_22 AC 2,600 ms
53,084 KB
testcase_23 AC 2,798 ms
56,064 KB
testcase_24 AC 8 ms
6,272 KB
testcase_25 AC 68 ms
7,168 KB
testcase_26 AC 29 ms
6,656 KB
testcase_27 AC 23 ms
6,528 KB
testcase_28 AC 488 ms
13,868 KB
testcase_29 AC 245 ms
10,372 KB
testcase_30 AC 69 ms
7,168 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

<>;@L=glob<>;$-=<>;map{$x+=$t=2**-$_;$%=0;$%+=$_/$x for@L;$x-=$%<$-&&$t}-30..30;print$x
0