結果
問題 | No.2675 KUMA |
ユーザー |
![]() |
提出日時 | 2024-03-18 16:19:34 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 1,724 ms / 2,000 ms |
コード長 | 513 bytes |
コンパイル時間 | 152 ms |
コンパイル使用メモリ | 6,952 KB |
実行使用メモリ | 12,800 KB |
最終ジャッジ日時 | 2024-09-30 04:58:57 |
合計ジャッジ時間 | 12,981 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 |
other | AC * 47 |
コンパイルメッセージ
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(0..(1<<$n)-1){if(defined$a[$_]){$b[$_|$p]=$a[$_]+1 if !defined $b[$_|$p] || $b[$_|$p]>$a[$_]+1;}}}}}print $b[(1<<$n)-1]//-1;