結果
問題 | No.19 ステージの選択 |
ユーザー |
![]() |
提出日時 | 2017-05-11 23:11:59 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 35 ms / 5,000 ms |
コード長 | 141 bytes |
コンパイル時間 | 43 ms |
コンパイル使用メモリ | 5,248 KB |
実行使用メモリ | 5,632 KB |
最終ジャッジ日時 | 2024-12-23 10:06:31 |
合計ジャッジ時間 | 1,143 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 24 |
コンパイルメッセージ
Name "main::f" used only once: possible typo at Main.pl line 1. Main.pl syntax OK
ソースコード
for$v(!<>..map@s=(@s,$'-/ /),@l=<>){$a+=$l[$v];$v=$s[$v]for@l;$b=999;$b-=$-=$b-$l[$v],$v=$s[$v]until$f[$v]++;$a+=$b<999&&$b}printf'%.1f',$a/2