Submission #1452951

---

Source Code Expand

module IntSet = Set.Make (struct
  type t = int
  let compare = compare
end)

let () =
  let n = Scanf.scanf "%d\n" (fun n -> n) in
  let ps = Array.init n (fun _ -> Scanf.scanf "%d " (fun p -> p)) in
  Array.fold_left (fun s p ->
    IntSet.fold (fun p' -> IntSet.add (p + p')) s s) (IntSet.singleton 0) ps
  |> IntSet.cardinal
  |> Printf.printf "%d\n"

Submission Info

Judge Result