vladan/aoc2022
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add pair_of_list helper function

Browse source
This commit is contained in:
Vladan Popovic 2022-12-04 09:32:12 +01:00
parent 883d16a3a3
commit 8a9648ff3e
2 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
bin/d2/main.ml
View file

@ -41,10 +41,12 @@ let outcome me oponent =
| 1 | -2 -> Win
| _ -> Draw
open Utils
let solve f l = l
|> List.map (fun line -> line
|> String.split_on_char ' '
|> (fun l -> (List.hd l, List.tl l |> List.hd))
|> pair_of_list
|> f
|> (fun (oponent, me) -> ((outcome me oponent) |> int_of_outcome) + int_of_choice me))
|> List.fold_left (+) 0
@ -56,7 +58,5 @@ let d2_2 = solve (fun (oponent_s, outcome_s) ->
(choice_of_string oponent_s, outcome_of_string outcome_s)
|> (fun (oponent, outcome) -> (oponent, (choice_of_outcome oponent outcome))))
open Utils
let _ = "\n1: " ^ (string_of_int (read_file "bin/d2/input.txt" |> d2_1)) ^
"\n2: " ^ (string_of_int (read_file "bin/d2/input.txt" |> d2_2)) |> print_endline