結果

問題 No.165 四角で囲え！
コンテスト
ユーザー 👑 tails
提出日時 2015-03-13 00:17:33
言語 Perl
(5.42.0)
コンパイル:
perl -cw _filename_
実行:
perl -X _filename_
結果
TLE  
(最新)
AC  
(最初)
実行時間 -
コード長 623 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 331 ms
コンパイル使用メモリ 7,844 KB
実行使用メモリ 40,488 KB
最終ジャッジ日時 2026-03-18 04:15:49
合計ジャッジ時間 97,167 ms
ジャッジサーバーID
（参考情報） 		judge1_0 / judge2_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3 WA * 1
other AC * 1 WA * 3 TLE * 15
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
raw source code 

($n,$b)=<>=~/\d+/g;

for(<>){
    ($x[$i],$y[$i],$p[$i])=/\d+/g;
    ++$i;
}

%h=();
for$i(0..$n-1){
    $h{$x[$i]}=1;
}
@xs=sort{$a-$b}keys%h;

%h=();
for$i(0..$n-1){
    $h{$y[$i]}=1;
}
@ys=sort{$a-$b}keys%h;

for$y(@ys){
    for$x(@xs){
	for$i(0..$n-1){
	    if($x<=$x[$i]&&$y<=$y[$i]){
		$v{$x,$y}++;
		$w{$x,$y}+=$p[$i];
	    }
	}
    }
}

for$y0(@ys){
    for$y1(@ys){
	for$x0(@xs){
	    for$x1(@xs){
		if($w{$x0,$y0}-$w{$x0,$y1}-$w{$x1,$y0}+$w{$x1,$y1}<=$b){
		    if($r<$v{$x0,$y0}-$v{$x0,$y1}-$v{$x1,$y0}+$v{$x1,$y1}){
			$r=$v{$x0,$y0}-$v{$x0,$y1}-$v{$x1,$y0}+$v{$x1,$y1};
		    }
		}
	    }
	}
    }
}

print$r;
0