結果
問題 | No.987 N×Mマス計算(基本) |
ユーザー | esehara |
提出日時 | 2021-06-02 00:15:53 |
言語 | OCaml (5.1.0) |
結果 |
AC
|
実行時間 | 4 ms / 2,000 ms |
コード長 | 813 bytes |
コンパイル時間 | 227 ms |
コンパイル使用メモリ | 19,824 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-04-26 09:56:43 |
合計ジャッジ時間 | 1,072 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge3 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 2 ms
5,248 KB |
testcase_01 | AC | 2 ms
5,376 KB |
testcase_02 | AC | 3 ms
5,376 KB |
testcase_03 | AC | 3 ms
5,376 KB |
testcase_04 | AC | 3 ms
5,376 KB |
testcase_05 | AC | 2 ms
5,376 KB |
testcase_06 | AC | 3 ms
5,376 KB |
testcase_07 | AC | 2 ms
5,376 KB |
testcase_08 | AC | 2 ms
5,376 KB |
testcase_09 | AC | 2 ms
5,376 KB |
testcase_10 | AC | 2 ms
5,376 KB |
testcase_11 | AC | 3 ms
5,376 KB |
testcase_12 | AC | 3 ms
5,376 KB |
testcase_13 | AC | 3 ms
5,376 KB |
testcase_14 | AC | 2 ms
5,376 KB |
testcase_15 | AC | 2 ms
5,376 KB |
testcase_16 | AC | 4 ms
5,376 KB |
testcase_17 | AC | 3 ms
5,376 KB |
testcase_18 | AC | 4 ms
5,376 KB |
testcase_19 | AC | 4 ms
5,376 KB |
ソースコード
let split_on_char sep s = let r = ref [] in let j = ref (String.length s) in for i = String.length s - 1 downto 0 do if String.unsafe_get s i = sep then begin r := String.sub s (i + 1) (!j - i - 1) :: !r; j := i end done; String.sub s 0 !j :: !r;; let rec line n lst op = match n with | 0 -> () | _ -> let m = read_line () |> int_of_string in List.map (fun x -> op m x) lst |> List.map string_of_int |> String.concat " " |> print_string; print_newline (); line (n - 1) lst op;; let () = let raw = read_line () |> split_on_char ' ' |> List.map int_of_string in let n = List.hd raw in let raw = read_line () |> split_on_char ' ' in let op = List.hd raw in let raw = List.tl raw |> List.map int_of_string in line n raw (if (op = "+") then (+) else ( * ));;