#370404 (Perl) No.74 貯金箱の退屈

• 問題: 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

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	8 ms; 6,816 KB
testcase_01	AC	7 ms; 6,820 KB
testcase_02	AC	8 ms; 6,820 KB
testcase_03	AC	18 ms; 6,816 KB
testcase_04	AC	19 ms; 6,816 KB
testcase_05	AC	15 ms; 6,816 KB
testcase_06	AC	12 ms; 6,816 KB
testcase_07	AC	14 ms; 6,816 KB
testcase_08	AC	20 ms; 6,816 KB
testcase_09	AC	16 ms; 6,820 KB
testcase_10	AC	16 ms; 6,820 KB
testcase_11	AC	13 ms; 6,816 KB
testcase_12	AC	16 ms; 6,816 KB
testcase_13	AC	20 ms; 6,820 KB
testcase_14	AC	36 ms; 6,816 KB
testcase_15	AC	28 ms; 6,816 KB
testcase_16	AC	17 ms; 6,816 KB
testcase_17	AC	9 ms; 6,816 KB
testcase_18	AC	7 ms; 6,816 KB
testcase_19	AC	14 ms; 6,816 KB
testcase_20	AC	29 ms; 6,820 KB
testcase_21	AC	23 ms; 6,820 KB
testcase_22	AC	8 ms; 6,816 KB
testcase_23	AC	9 ms; 6,816 KB
testcase_24	AC	18 ms; 6,816 KB
testcase_25	AC	15 ms; 6,816 KB
testcase_26	AC	23 ms; 6,820 KB
testcase_27	AC	32 ms; 6,816 KB
testcase_28	AC	43 ms; 6,820 KB
testcase_29	AC	26 ms; 6,816 KB
testcase_30	AC	42 ms; 6,820 KB
testcase_31	AC	26 ms; 6,816 KB
testcase_32	AC	16 ms; 6,820 KB

コンパイルメッセージ

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

ソースコード

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;