結果
問題 | No.165 四角で囲え! |
ユーザー |
![]() |
提出日時 | 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
ソースコード
($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;