結果

問題 No.228 ゆきこちゃんの 15 パズル
ユーザー %20
提出日時 2017-09-08 00:48:34
言語 Perl
(5.40.0)
結果
AC  
実行時間 5 ms / 5,000 ms
コード長 143 bytes
コンパイル時間 343 ms
コンパイル使用メモリ 5,376 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-11-07 11:55:07
合計ジャッジ時間 919 ms
ジャッジサーバーID
(参考情報)
judge1 / judge4
外部呼び出し有り
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
sample AC * 3
other AC * 17
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #

$_[$_]=++$%for`dd`=~/\d+/g;
while(($a=abs$_[$_[0]]-$_[0])==1||$a==4){
	($_[$_[0]],$_[0])=($_[0],$_[$_[0]])
}
print"@_"eq"@{[16,1..15]}"?Yes:No
0