#153562 (Perl) No.489 株に挑戦

• 問題: No.489 株に挑戦
• ユーザー: %20
• 提出日時: 2017-02-27 13:41:38
• 言語: Perl (5.38.2)
• 結果: TLE
• 実行時間: -
• コード長: 438 bytes
• コンパイル時間: 158 ms
• コンパイル使用メモリ: 6,816 KB
• 実行使用メモリ: 45,344 KB
• 最終ジャッジ日時: 2024-06-11 19:21:19
• 合計ジャッジ時間: 9,058 ms
• ジャッジサーバーID （参考情報）: judge5 / judge2

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	457 ms; 38,016 KB
testcase_01	AC	435 ms; 28,032 KB
testcase_02	AC	55 ms; 19,328 KB
testcase_03	AC	54 ms; 19,328 KB
testcase_04	AC	55 ms; 19,328 KB
testcase_05	AC	58 ms; 19,456 KB
testcase_06	AC	56 ms; 19,328 KB
testcase_07	AC	57 ms; 19,456 KB
testcase_08	AC	56 ms; 19,456 KB
testcase_09	AC	57 ms; 19,456 KB
testcase_10	AC	55 ms; 19,328 KB
testcase_11	AC	54 ms; 19,456 KB
testcase_12	AC	55 ms; 19,456 KB
testcase_13	AC	57 ms; 19,328 KB
testcase_14	AC	58 ms; 19,456 KB
testcase_15	AC	72 ms; 20,352 KB
testcase_16	AC	724 ms; 34,560 KB
testcase_17	AC	81 ms; 21,760 KB
testcase_18	AC	376 ms; 28,160 KB
testcase_19	AC	343 ms; 26,240 KB
testcase_20	AC	746 ms; 34,816 KB
testcase_21	AC	213 ms; 23,168 KB
testcase_22	AC	94 ms; 20,736 KB
testcase_23	AC	270 ms; 28,800 KB
testcase_24	AC	863 ms; 37,632 KB
testcase_25	AC	62 ms; 19,328 KB
testcase_26	TLE	-
testcase_27	--	-
testcase_28	--	-
testcase_29	--	-
testcase_30	--	-
testcase_31	--	-
testcase_32	--	-
testcase_33	--	-
testcase_34	--	-
testcase_35	--	-
testcase_36	--	-
testcase_37	--	-

コンパイルメッセージ

Possible precedence problem on bitwise | operator at Main.pl line 5.
Main.pl syntax OK

ソースコード

sub max{$_[$_[1]>$_[0]]}
$b=2**17;
($N,$D,$K)=glob<>;
@x=((0)x$b,<>);
$x[$_]=$x[$_*2|$x[$_*2+1]>$x[$_*2]]for reverse 1..$b-1;
for(0..$N-1){
	($L,$R)=@x[($l,$r)=($b+$_,$b+$_+$D)];
	while($l>>1!=$r>>1){
		$l&1||($L=max($L,$x[$l^1]));
		$l>>=1;
		$r&1&&($R=max($R,$x[$r^1]));
		$r>>=1
	}
	if($-=max($L,$R)-$x[$b+$_]-$m){
		$j=$_;
		$m+=$-
	}
}
if($m){
	$k=$j;
	++$k until$x[$b+$k]-$x[$b+$j]==$m;
	print$m*$K,"\n$j $k\n"
}else{
	print 0,$/
}