結果

問題 No.74 貯金箱の退屈
コンテスト
ユーザー tails
提出日時 2019-08-18 03:01:00
言語 Perl
(5.40.0)
結果
AC  
実行時間 43 ms / 5,000 ms
コード長 285 bytes
コンパイル時間 651 ms
コンパイル使用メモリ 7,076 KB
実行使用メモリ 6,820 KB
最終ジャッジ日時 2024-10-01 06:56:19
合計ジャッジ時間 2,190 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 30
権限があれば一括ダウンロードができます
コンパイルメッセージ
Unquoted string "d" may clash with future reserved word at Main.pl line 3.
Unquoted string "w" may clash with future reserved word at Main.pl line 3.
Name "main::d" used only once: possible typo at Main.pl line 5.
Main.pl syntax OK

ソースコード

diff # 

sub f{"@_"-$u["@_"]?f(@u[@_]):"@_"}
@u=@n=0..<>-1;
@$_=glob<>for d,w;
for$i(@n){
	$u=$v,$v=f$_=($i+($d[$i]*=-1))%@n for$a,$b;
	if($a-$b){
		$u[$u]=$v;
	}else{
		$w[$a]=$=*=3;
	}
}
for$i(@n){
	$z=1,$u=f$i;
	for$j(@n){
		$z^=$w[$j]^1,$w[$j]=3 if $u==f$j;
	}
	$r=No if!$z;
}
print$r||Yes;
0