結果

問題 No.489 株に挑戦
ユーザー %20%20
提出日時 2017-02-27 13:41:38
言語 Perl
(5.40.0)
結果
TLE  
実行時間 -
コード長 438 bytes
コンパイル時間 158 ms
コンパイル使用メモリ 6,816 KB
実行使用メモリ 45,344 KB
最終ジャッジ日時 2024-06-11 19:21:19
合計ジャッジ時間 9,058 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 23 TLE * 1 -- * 11
権限があれば一括ダウンロードができます
コンパイルメッセージ
Possible precedence problem on bitwise | operator at Main.pl line 5.
Main.pl syntax OK

ソースコード

diff # 

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,$/
}
0