結果
問題 | No.2675 KUMA |
ユーザー |
![]() |
提出日時 | 2024-03-18 17:21:46 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 1,069 ms / 2,000 ms |
コード長 | 463 bytes |
コンパイル時間 | 638 ms |
コンパイル使用メモリ | 6,820 KB |
実行使用メモリ | 12,928 KB |
最終ジャッジ日時 | 2024-09-30 04:59:32 |
合計ジャッジ時間 | 10,227 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
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)=glob<>;$p{$x,$y}=1<<$_;for$j(0..7){$k{$x-$d[$j+6&7],$y-$d[$j]}=1;}}@b=(0,(17)x((1<<$n)-1));for(keys%k){if(!$p{$_}){@a=@b;($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($b[$_|$p]>$a[$_]+1){$b[$_|$p]=$a[$_]+1;}}}}}}print $_<17?$_:-1 for $b[(1<<$n)-1];