結果
問題 | No.74 貯金箱の退屈 |
ユーザー |
![]() |
提出日時 | 2019-08-18 15:56:05 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 9 ms / 5,000 ms |
コード長 | 224 bytes |
コンパイル時間 | 1,421 ms |
コンパイル使用メモリ | 6,944 KB |
実行使用メモリ | 6,016 KB |
最終ジャッジ日時 | 2024-10-01 14:08:02 |
合計ジャッジ時間 | 1,732 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
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
ソースコード
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;$a-$b?($u[$u]=$v):($w[$a]=$=*=3);}for$i(@n){$s[f$i]^=$w[$i]^1;}print grep($_==1,@s)?No:Yes;