結果
問題 | No.1454 ツブ消ししとるなEasy |
ユーザー | esehara |
提出日時 | 2021-06-02 04:12:23 |
言語 | OCaml (5.1.0) |
結果 |
AC
|
実行時間 | 52 ms / 2,000 ms |
コード長 | 924 bytes |
コンパイル時間 | 453 ms |
コンパイル使用メモリ | 19,696 KB |
実行使用メモリ | 13,304 KB |
最終ジャッジ日時 | 2024-04-26 13:04:40 |
合計ジャッジ時間 | 1,400 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge3 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 2 ms
6,816 KB |
testcase_01 | AC | 2 ms
6,940 KB |
testcase_02 | AC | 1 ms
6,940 KB |
testcase_03 | AC | 2 ms
6,944 KB |
testcase_04 | AC | 52 ms
13,304 KB |
testcase_05 | AC | 1 ms
6,944 KB |
testcase_06 | AC | 2 ms
6,940 KB |
testcase_07 | AC | 44 ms
12,740 KB |
testcase_08 | AC | 48 ms
12,864 KB |
testcase_09 | AC | 44 ms
12,864 KB |
testcase_10 | AC | 1 ms
6,944 KB |
testcase_11 | AC | 2 ms
6,944 KB |
testcase_12 | AC | 2 ms
6,940 KB |
testcase_13 | AC | 2 ms
6,944 KB |
testcase_14 | AC | 1 ms
6,940 KB |
testcase_15 | AC | 2 ms
6,944 KB |
testcase_16 | AC | 3 ms
6,940 KB |
testcase_17 | AC | 1 ms
6,944 KB |
testcase_18 | AC | 2 ms
6,940 KB |
testcase_19 | AC | 2 ms
6,940 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 tubutta_haizin d x y lst = match lst with | [] -> "0" | h::tl -> if (h <= y) then tubutta_haizin (d - 1) x y tl else if (d <= 0) then List.fold_left (+) 0 lst |> string_of_int else if (h >= x) then "Handicapped" else tubutta_haizin (d - 1) x y tl;; let () = let raw = read_line () |> split_on_char ' ' |> List.map int_of_string in let d = (List.nth raw 0) - (List.nth raw 1) in let x = List.nth raw 2 in let y = List.nth raw 3 in let raw = read_line () |> split_on_char ' ' |> List.map int_of_string |> List.fast_sort compare in tubutta_haizin d x y raw |> print_string; print_newline ();;