blob: 4a06e8395f4187a6bfb5faa4f27054c62de94d63 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
open Battery_bank
let err_empty_input = "input is empty"
let to_lines s =
s |> String.split_on_char '\n' |> List.map String.trim
|> List.filter (fun l -> l <> "")
let solve input () =
if input = "" then Error err_empty_input
else
let answer =
input |> to_lines |> List.to_seq
|> Seq.map BatteryBank.of_string
|> Seq.mapi (fun idx bb ->
let joltage = BatteryBank.highest_joltage bb in
Logs.debug (fun m ->
m "%d line=%s highest_joltage=%d" (idx + 1) (BatteryBank.pp bb)
joltage ) ;
joltage )
|> Seq.fold_left ( + ) 0
in
Ok answer
|
