結果
問題 | No.769 UNOシミュレータ |
ユーザー |
![]() |
提出日時 | 2018-12-16 22:19:36 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 195 ms / 2,000 ms |
コード長 | 454 bytes |
コンパイル時間 | 183 ms |
コンパイル使用メモリ | 6,820 KB |
実行使用メモリ | 6,144 KB |
最終ジャッジ日時 | 2024-11-22 08:41:10 |
合計ジャッジ時間 | 2,614 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 23 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
$n=<>; $dir=1; $id=0; while(<>){ chop; if($d2 && $_ ne 'drawtwo'){ $a[$id]-=$d2; $d2=0; $id=($id+$dir)%$n; } if($d4 && $_ ne 'drawfour'){ $a[$id]-=$d4; $d4=0; $id=($id+$dir)%$n; } $a[$id]+=1; $lastid=$id; if($_ eq 'number'){ } if($_ eq 'drawtwo'){ $d2+=2; } if($_ eq 'drawfour'){ $d4+=4; } if($_ eq 'skip'){ $id=($id+$dir)%$n; } if($_ eq 'reverse'){ $dir=-$dir; } $id=($id+$dir)%$n; } print$lastid+1,$",$a[$lastid];