結果
問題 | No.24 数当てゲーム |
ユーザー | r6eve |
提出日時 | 2017-08-10 12:00:56 |
言語 | OCaml (5.1.0) |
結果 |
AC
|
実行時間 | 3 ms / 5,000 ms |
コード長 | 847 bytes |
コンパイル時間 | 305 ms |
コンパイル使用メモリ | 20,036 KB |
実行使用メモリ | 4,384 KB |
最終ジャッジ日時 | 2023-07-30 07:06:12 |
合計ジャッジ時間 | 1,018 ms |
ジャッジサーバーID (参考情報) |
judge14 / judge15 |
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 2 ms
4,380 KB |
testcase_01 | AC | 2 ms
4,384 KB |
testcase_02 | AC | 2 ms
4,376 KB |
testcase_03 | AC | 3 ms
4,380 KB |
testcase_04 | AC | 2 ms
4,376 KB |
testcase_05 | AC | 2 ms
4,376 KB |
testcase_06 | AC | 2 ms
4,376 KB |
testcase_07 | AC | 2 ms
4,376 KB |
testcase_08 | AC | 2 ms
4,376 KB |
testcase_09 | AC | 2 ms
4,380 KB |
ソースコード
let iota ?(start=0) ?(step=1) cnt = let rec doit i acc = if i <= 0 then acc else doit (i - 1) (start + step*(i - 1) :: acc) in doit cnt [] module S = Set.Make (struct type t = int let compare = (-) end) let () = let n = Scanf.scanf "%d " (fun i -> i) in let rec doit i acc = if i = n then acc else let a, b, c, d, r = Scanf.scanf "%d %d %d %d %s " (fun a b c d r -> a, b, c, d, r) in let l = [a; b; c; d] in let s = if r = "YES" then List.fold_left (fun s e -> S.add e s) S.empty l else List.fold_left (fun s e -> S.add e s) S.empty (iota 10 |> List.filter (fun e -> not (List.mem e l))) in doit (i + 1) (s :: acc) in doit 0 [] |> List.fold_left S.inter (iota 10 |> List.fold_left (fun s e -> S.add e s) S.empty) |> S.choose |> Printf.printf "%d\n"