blob: c4eebbed44ec2e4776f0a23ffe33a36fe806b16e (
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
|
let pp_range range =
Logs.app (fun m -> m "range=%s" range) ;
range
let pp_tuple tuple =
let l, r = tuple in
Logs.app (fun m -> m "(left=%s, right=%s)" l r) ;
tuple
(** [input_to_ranges input] is a list of strings that have been split on ','.
Requires: [input] to be a string in the format "12-34,56-78,90-100" *)
let input_to_ranges input =
input |> String.split_on_char ','
|> List.filter (fun range -> range <> "")
|> List.map pp_range
let list_to_tuple = function
| [l; r] ->
(l, r)
| _ ->
failwith "list cannot convert to tuple"
let ranges_to_tuples ranges =
ranges
|> List.map (fun range ->
let sides = String.split_on_char '-' range in
list_to_tuple sides |> pp_tuple )
let solve input () =
let _ = input |> input_to_ranges |> ranges_to_tuples in
0
|
