結果
問題 | No.49 算数の宿題 |
ユーザー |
|
提出日時 | 2020-07-02 02:50:44 |
言語 | OCaml (5.2.1) |
結果 |
AC
|
実行時間 | 2 ms / 5,000 ms |
コード長 | 448 bytes |
コンパイル時間 | 2,145 ms |
コンパイル使用メモリ | 21,700 KB |
実行使用メモリ | 5,248 KB |
最終ジャッジ日時 | 2024-12-23 02:12:18 |
合計ジャッジ時間 | 2,759 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 10 |
ソースコード
Scanf.scanf "%s" (fun s ->let n = String.length s inlet rec loop i cur op acc =if i = n then (if op = '+' then acc * cur else acc + cur) elseif s.[i] = '+' || s.[i] = '*' then (let acc = if op = '+' then acc * cur else acc + cur inloop (i + 1) 0 s.[i] acc) else loop (i + 1) (cur * 10 + int_of_char s.[i] - 48) op accinloop 0 0 ' ' 0 |> Printf.printf "%d\n")