提出 #4334689

ソースコード 拡げる

open Printf open Scanf
open Array

let cost = [|0;2;5;5;4;5;6;3;7;6|]

let () = scanf " %d %d" @@ fun n m ->
  let a = init m (fun _ -> scanf " %d" @@ fun v -> v) in
  let maxstr u v =
    match compare (String.length u) (String.length v) with
    |  1 -> u
    | -1 -> v
    | _ -> max u v
  in
  let dp = make (n+1) "" in
  dp.(n) <- "0";
  for j=n downto 0 do
    if dp.(j) <> "" then (
      iter (fun i ->
        let c = cost.(i) in
        if j-c >= 0 then
          dp.(j-c) <- maxstr
            dp.(j-c)
            (dp.(j) ^ (string_of_int i))
      ) a
    )
  done;
  (* iter (print_endline) dp; *)
  print_string @@ String.(sub dp.(0) 1 (length dp.(0) - 1))

提出情報

提出日時
問題 D - Match Matching
ユーザ sk0
言語 OCaml (4.02.3)
得点 400
コード長 700 Byte
結果 AC
実行時間 88 ms
メモリ 59552 KiB

ジャッジ結果

セット名 All Sample
得点 / 配点 400 / 400 0 / 0
結果
AC × 29
AC × 3
セット名 テストケース
All 0_random_1, 0_random_2, 0_random_3, 0_random_4, 0_random_5, 0_random_6, 0_random_7, 0_random_8, 1_normal_1, 1_normal_2, 1_normal_3, 1_normal_4, 1_normal_5, 1_normal_6, 2_corner_1, 2_corner_2, 2_corner_3, 2_corner_4, 2_corner_5, 2_corner_6, 3_hand_1, 3_hand_2, 3_hand_3, 3_hand_4, 3_hand_5, 3_hand_6, sample_01, sample_02, sample_03
Sample sample_01, sample_02, sample_03
ケース名 結果 実行時間 メモリ
0_random_1 AC 1 ms 384 KiB
0_random_2 AC 1 ms 384 KiB
0_random_3 AC 5 ms 2944 KiB
0_random_4 AC 35 ms 44540 KiB
0_random_5 AC 49 ms 38272 KiB
0_random_6 AC 26 ms 23552 KiB
0_random_7 AC 2 ms 1536 KiB
0_random_8 AC 1 ms 512 KiB
1_normal_1 AC 7 ms 5888 KiB
1_normal_2 AC 20 ms 11264 KiB
1_normal_3 AC 10 ms 5760 KiB
1_normal_4 AC 34 ms 34432 KiB
1_normal_5 AC 23 ms 33792 KiB
1_normal_6 AC 13 ms 5632 KiB
2_corner_1 AC 7 ms 3840 KiB
2_corner_2 AC 2 ms 640 KiB
2_corner_3 AC 14 ms 8704 KiB
2_corner_4 AC 3 ms 1792 KiB
2_corner_5 AC 2 ms 640 KiB
2_corner_6 AC 6 ms 5632 KiB
3_hand_1 AC 13 ms 10624 KiB
3_hand_2 AC 1 ms 384 KiB
3_hand_3 AC 1 ms 384 KiB
3_hand_4 AC 1 ms 384 KiB
3_hand_5 AC 1 ms 384 KiB
3_hand_6 AC 88 ms 59552 KiB
sample_01 AC 1 ms 384 KiB
sample_02 AC 1 ms 512 KiB
sample_03 AC 1 ms 384 KiB