blob: 25c8b7dbf3681f43ee06d54c94aea6c3270a8ad1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
(* Day 1: Part 2 *)
let rec count_occurrances_help element acc lst =
match lst with
| [] -> acc
| h :: t ->
if h = element then count_occurrances_help element (acc + 1) t
else count_occurrances_help element acc t
let count_occurrances element lst = count_occurrances_help element 0 lst
let solve left right =
List.map (fun x -> x * count_occurrances x right) left
|> List.fold_left ( + ) 0
let left line =
let pos = 0 in
let len = String.index line ' ' in
String.sub line pos len
let right line =
let pos = String.rindex line ' ' + 1 in
let len = String.length line - pos in
String.sub line pos len
let line_to_tuple line = (left line, right line)
let lines_to_lists lines =
let tuples = List.map line_to_tuple lines in
let left =
List.map
(fun t ->
let l, _ = t in
int_of_string l)
tuples
in
let right =
List.map
(fun t ->
let _, r = t in
int_of_string r)
tuples
in
(left, right)
|
