結果
問題 | No.1416 ショッピングモール |
ユーザー | esehara |
提出日時 | 2021-06-02 07:18:52 |
言語 | OCaml (5.1.0) |
結果 |
AC
|
実行時間 | 25 ms / 1,000 ms |
コード長 | 994 bytes |
コンパイル時間 | 1,548 ms |
コンパイル使用メモリ | 19,584 KB |
実行使用メモリ | 9,748 KB |
最終ジャッジ日時 | 2024-04-26 15:59:56 |
合計ジャッジ時間 | 2,511 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge1 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 1 ms
5,248 KB |
testcase_01 | AC | 1 ms
5,376 KB |
testcase_02 | AC | 1 ms
5,376 KB |
testcase_03 | AC | 1 ms
5,376 KB |
testcase_04 | AC | 2 ms
5,376 KB |
testcase_05 | AC | 1 ms
5,376 KB |
testcase_06 | AC | 1 ms
5,376 KB |
testcase_07 | AC | 2 ms
5,376 KB |
testcase_08 | AC | 2 ms
5,376 KB |
testcase_09 | AC | 1 ms
5,376 KB |
testcase_10 | AC | 1 ms
5,376 KB |
testcase_11 | AC | 3 ms
5,376 KB |
testcase_12 | AC | 2 ms
5,376 KB |
testcase_13 | AC | 3 ms
5,376 KB |
testcase_14 | AC | 3 ms
5,376 KB |
testcase_15 | AC | 4 ms
5,376 KB |
testcase_16 | AC | 3 ms
5,376 KB |
testcase_17 | AC | 5 ms
5,376 KB |
testcase_18 | AC | 5 ms
5,376 KB |
testcase_19 | AC | 5 ms
5,376 KB |
testcase_20 | AC | 5 ms
5,376 KB |
testcase_21 | AC | 23 ms
8,576 KB |
testcase_22 | AC | 25 ms
8,784 KB |
testcase_23 | AC | 24 ms
9,748 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 pow x y = let rec inner_pow i result = match i with | 0 -> result | _ -> inner_pow (i - 1) (result * x) in inner_pow y 1;; let rec shop_tumeru cost k hairu lst = match lst with | [] -> cost | _ -> let max_k = pow 2 k in if (hairu >= max_k) then shop_tumeru cost (k + 1) 0 lst else let next_shop = List.hd lst in let lst = List.tl lst in let cost = cost + (next_shop * k) in let hairu = hairu + 1 in shop_tumeru cost k hairu lst;; let () = read_line () |> ignore; let lst = read_line () |> split_on_char ' ' |> List.map int_of_string |> List.fast_sort (fun x y -> - ( compare x y)) in shop_tumeru 0 0 0 lst |> print_int; print_newline ();;