結果

問題 No.165 四角で囲え！
コンテスト
ユーザー tails
提出日時 2015-03-13 00:15:33
言語 Perl
(5.40.0)
結果
TLE  
実行時間 -
コード長 622 bytes
コンパイル時間 39 ms
コンパイル使用メモリ 5,376 KB
実行使用メモリ 32,768 KB
最終ジャッジ日時 2024-06-28 22:41:59
合計ジャッジ時間 12,471 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample -- * 4
other TLE * 1 -- * 18
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

($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