rhi/aoc2020
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

factor out mains

Browse source
This commit is contained in:
Rhiannon Morris 2020-12-04 12:47:03 +01:00
parent d20143a6d2
commit c6ba203526
1 changed files with 8 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
day4.ml
View file

@ -79,13 +79,15 @@ let%test_module _ = (module struct
end) end)
let main' make valid file =
let main1 file = let items = chunk_input file |> List.map make in
let sets = chunk_input file |> List.map field_keys in let len_all = List.length items in
let len_all = List.length sets in let len_valid = List.(length (filter valid items)) in
let len_valid = List.(length (filter valid_set sets)) in
Printf.printf "%d valid out of %d\n" len_valid len_all Printf.printf "%d valid out of %d\n" len_valid len_all
let main1 = main' field_keys valid_set
let%expect_test "part 1" = let%expect_test "part 1" =
main1 "../../data/day4"; main1 "../../data/day4";
[%expect{| 233 valid out of 288 |}] [%expect{| 233 valid out of 288 |}]
@ -223,11 +225,7 @@ let%test_module _ = (module struct
end) end)
let main2 file = let main2 = main' fields valid_map
let maps = chunk_input file |> List.map fields in
let len_all = List.length maps in
let len_valid = List.(length (filter valid_map maps)) in
Printf.printf "%d valid out of %d\n" len_valid len_all
let%expect_test _ = let%expect_test _ =
main2 "../../data/day4"; main2 "../../data/day4";