結果
問題 | No.2675 KUMA |
ユーザー |
![]() |
提出日時 | 2024-03-18 16:18:51 |
言語 | Perl (5.40.0) |
結果 |
TLE
|
実行時間 | - |
コード長 | 477 bytes |
コンパイル時間 | 576 ms |
コンパイル使用メモリ | 6,820 KB |
実行使用メモリ | 33,312 KB |
最終ジャッジ日時 | 2024-09-30 04:58:43 |
合計ジャッジ時間 | 8,635 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 |
other | AC * 5 TLE * 2 -- * 40 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
$;=$";@d=(-2,-2,-1,+1,+2,+2,+1,-1);$n=<>;for(0..$n-1){($x[$_],$y[$_])=($x,$y)=glob<>;$p{$x,$y}=1<<$_;for$j(0..7){$k{$x-$d[$j+6&7],$y-$d[$j]}=1;}}for(0..$n-1){delete $k{$x[$_],$y[$_]};}$b{0}=0;for(keys%k){%a=%b;$k=$k{$_};($x,$y)=glob;for$j(0,2,4,6){$p=0;for(0,1){$p|=$p{$x+$d[$j+6&7^$_],$y+$d[$j^$_]};}if($p){for(keys%a){$b{$_|$p}=$a{$_}+1 if !defined $b{$_|$p} || $b{$_|$p}>$a{$_}+1;}}}}print $b{(1<<$n)-1}//-1;