結果
問題 | No.662 スロットマシーン |
ユーザー |
![]() |
提出日時 | 2018-03-09 22:41:15 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 6 ms / 2,000 ms |
コード長 | 258 bytes |
コンパイル時間 | 364 ms |
コンパイル使用メモリ | 6,944 KB |
実行使用メモリ | 6,820 KB |
最終ジャッジ日時 | 2024-10-10 06:47:41 |
合計ジャッジ時間 | 784 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 19 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
for$i(0..4){ $_=<>; / /; $i[$i]=$`; $a{$`}=$'; $b{$`}=5; } $d=1; for(1..3){ %c=(); $e=<>; $d*=$e; for(1..$e){ $_=<>; chop; ++$c{$_}; } for(@i){ $b{$_}*=$c{$_}; } } for(@i){ $f+=$a{$_}*$b{$_}; } print$f/$d,$/; for(@i){ print$b{$_},$/; }