結果

問題 No.469 区間加算と一致検索の問題
ユーザー %20%20
提出日時 2016-12-19 10:59:50
言語 Perl
(5.38.2)
結果
AC  
実行時間 1,604 ms / 5,000 ms
コード長 258 bytes
コンパイル時間 207 ms
コンパイル使用メモリ 6,684 KB
実行使用メモリ 108,800 KB
最終ジャッジ日時 2024-06-01 10:59:05
合計ジャッジ時間 32,096 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge2
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 8 ms
6,812 KB
testcase_01 AC 8 ms
6,940 KB
testcase_02 AC 50 ms
12,416 KB
testcase_03 AC 49 ms
7,680 KB
testcase_04 AC 51 ms
8,064 KB
testcase_05 AC 60 ms
8,576 KB
testcase_06 AC 68 ms
8,960 KB
testcase_07 AC 74 ms
9,088 KB
testcase_08 AC 77 ms
9,216 KB
testcase_09 AC 36 ms
7,296 KB
testcase_10 AC 73 ms
6,940 KB
testcase_11 AC 27 ms
6,940 KB
testcase_12 AC 82 ms
9,344 KB
testcase_13 AC 50 ms
7,936 KB
testcase_14 AC 20 ms
6,944 KB
testcase_15 AC 31 ms
7,168 KB
testcase_16 AC 74 ms
9,088 KB
testcase_17 AC 64 ms
8,704 KB
testcase_18 AC 69 ms
8,832 KB
testcase_19 AC 19 ms
6,944 KB
testcase_20 AC 82 ms
9,472 KB
testcase_21 AC 24 ms
6,944 KB
testcase_22 AC 10 ms
6,940 KB
testcase_23 AC 466 ms
25,600 KB
testcase_24 AC 475 ms
25,600 KB
testcase_25 AC 451 ms
25,472 KB
testcase_26 AC 452 ms
25,472 KB
testcase_27 AC 461 ms
25,472 KB
testcase_28 AC 455 ms
25,600 KB
testcase_29 AC 453 ms
25,472 KB
testcase_30 AC 458 ms
25,600 KB
testcase_31 AC 453 ms
25,472 KB
testcase_32 AC 456 ms
25,600 KB
testcase_33 AC 1,604 ms
108,800 KB
testcase_34 AC 1,509 ms
108,800 KB
testcase_35 AC 1,487 ms
108,800 KB
testcase_36 AC 1,559 ms
108,800 KB
testcase_37 AC 1,506 ms
108,800 KB
testcase_38 AC 1,340 ms
97,664 KB
testcase_39 AC 1,361 ms
97,920 KB
testcase_40 AC 1,323 ms
97,792 KB
testcase_41 AC 1,405 ms
97,920 KB
testcase_42 AC 1,344 ms
97,664 KB
testcase_43 AC 1,316 ms
97,792 KB
testcase_44 AC 1,370 ms
97,792 KB
testcase_45 AC 1,375 ms
97,664 KB
testcase_46 AC 1,395 ms
97,792 KB
testcase_47 AC 1,369 ms
97,792 KB
testcase_48 AC 9 ms
6,144 KB
testcase_49 AC 9 ms
6,016 KB
testcase_50 AC 1,365 ms
97,920 KB
testcase_51 AC 1,370 ms
97,792 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

$b=0|rand($m=1000000007);
$B=0|rand($M=1000000005);
$h[0]=$H[0]=1;
$h[$_]=$h[$_-1]*$b%$m,$H[$_]=$H[$_-1]*$B%$M for 1..<>;
$h{0}{0}=0;
	($q,$L,$R,$K)=glob,
	'!'eq$q?
		$h{$h+=$K*($h[$L]-$h[$R])}{$H+=$K*($H[$L]-$H[$R])}//=$.-1
	:
		print$h{$h}{$H}+0,$/
while<>
0