結果

問題 No.165 四角で囲え!
ユーザー tails
提出日時 2015-03-13 00:17:33
言語 Perl
(5.40.0)
結果
TLE  
(最新)
AC  
(最初)
実行時間 -
コード長 623 bytes
コンパイル時間 203 ms
コンパイル使用メモリ 6,688 KB
実行使用メモリ 34,588 KB
最終ジャッジ日時 2024-06-28 22:41:47
合計ジャッジ時間 12,559 ms
ジャッジサーバーID
(参考情報)
judge5 / judge2
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
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