結果
問題 | No.667 Mice's Luck(ネズミ達の運) |
ユーザー |
|
提出日時 | 2020-07-02 02:22:18 |
言語 | OCaml (5.2.1) |
結果 |
AC
|
実行時間 | 103 ms / 2,000 ms |
コード長 | 459 bytes |
コンパイル時間 | 517 ms |
コンパイル使用メモリ | 21,700 KB |
実行使用メモリ | 6,400 KB |
最終ジャッジ日時 | 2024-10-09 01:45:43 |
合計ジャッジ時間 | 2,899 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 10 |
ソースコード
Scanf.scanf "%s" (fun s ->let n = String.length s inlet rec loop i acc =if i = n then acc else loop (i + 1) (if s.[i] = 'o' then acc + 1 else acc)inlet ok = loop 0 0 inlet rec loop i rest =if i < n then (Printf.printf "%.6f\n" (100. *. float rest /. float (n - i));if s.[i]= 'o' then loop (i + 1) (rest - 1)else loop (i + 1) rest)inloop 0 ok)