solved day 5 !

exe/main.ml

@@ -4,5 +4,6 @@ let () =
   Day1.print ();
   Day2.print ();
   Day3.print ();
-  Day4.print ()
+  Day4.print ();
+  Day5.print ()
 ;;

inputs/day5.tt

@@ -0,0 +1,511 @@
+[B]                     [N]     [H]
+[V]         [P] [T]     [V]     [P]
+[W]     [C] [T] [S]     [H]     [N]
+[T]     [J] [Z] [M] [N] [F]     [L]
+[Q]     [W] [N] [J] [T] [Q] [R] [B]
+[N] [B] [Q] [R] [V] [F] [D] [F] [M]
+[H] [W] [S] [J] [P] [W] [L] [P] [S]
+[D] [D] [T] [F] [G] [B] [B] [H] [Z]
+ 1   2   3   4   5   6   7   8   9
+
+move 2 from 8 to 1
+move 4 from 9 to 8
+move 2 from 1 to 6
+move 7 from 4 to 2
+move 10 from 2 to 7
+move 2 from 1 to 6
+move 1 from 9 to 4
+move 1 from 4 to 1
+move 8 from 6 to 4
+move 7 from 1 to 8
+move 6 from 8 to 1
+move 1 from 4 to 1
+move 8 from 7 to 3
+move 2 from 5 to 2
+move 5 from 3 to 2
+move 5 from 2 to 1
+move 1 from 6 to 5
+move 2 from 2 to 6
+move 5 from 8 to 7
+move 12 from 7 to 4
+move 3 from 5 to 4
+move 2 from 6 to 4
+move 9 from 1 to 7
+move 4 from 3 to 7
+move 4 from 3 to 4
+move 3 from 1 to 7
+move 1 from 9 to 1
+move 1 from 1 to 4
+move 2 from 5 to 2
+move 1 from 3 to 7
+move 15 from 7 to 2
+move 4 from 7 to 9
+move 6 from 9 to 2
+move 2 from 8 to 3
+move 3 from 2 to 8
+move 1 from 7 to 6
+move 8 from 2 to 5
+move 2 from 8 to 4
+move 2 from 3 to 8
+move 9 from 5 to 9
+move 7 from 4 to 2
+move 1 from 8 to 6
+move 6 from 9 to 2
+move 3 from 9 to 7
+move 2 from 8 to 4
+move 7 from 2 to 6
+move 7 from 4 to 1
+move 3 from 1 to 8
+move 2 from 1 to 8
+move 4 from 8 to 2
+move 2 from 1 to 5
+move 19 from 2 to 7
+move 8 from 4 to 7
+move 18 from 7 to 1
+move 11 from 7 to 4
+move 15 from 1 to 7
+move 9 from 4 to 3
+move 2 from 3 to 1
+move 9 from 4 to 5
+move 1 from 8 to 1
+move 8 from 6 to 5
+move 3 from 2 to 5
+move 1 from 6 to 7
+move 4 from 4 to 3
+move 8 from 5 to 1
+move 13 from 1 to 6
+move 12 from 7 to 1
+move 12 from 6 to 3
+move 1 from 7 to 6
+move 1 from 7 to 5
+move 1 from 1 to 9
+move 1 from 3 to 1
+move 3 from 1 to 9
+move 12 from 3 to 8
+move 1 from 9 to 3
+move 1 from 6 to 8
+move 5 from 5 to 1
+move 1 from 6 to 2
+move 10 from 8 to 9
+move 13 from 9 to 2
+move 10 from 3 to 4
+move 1 from 8 to 9
+move 2 from 8 to 7
+move 1 from 3 to 1
+move 1 from 5 to 6
+move 13 from 2 to 5
+move 1 from 9 to 2
+move 7 from 1 to 4
+move 2 from 2 to 5
+move 2 from 7 to 8
+move 1 from 6 to 8
+move 10 from 5 to 8
+move 3 from 7 to 2
+move 4 from 1 to 4
+move 12 from 4 to 2
+move 10 from 5 to 3
+move 6 from 2 to 1
+move 2 from 4 to 8
+move 3 from 4 to 8
+move 6 from 1 to 7
+move 1 from 7 to 5
+move 12 from 8 to 2
+move 3 from 4 to 9
+move 1 from 4 to 3
+move 2 from 9 to 6
+move 2 from 6 to 8
+move 1 from 1 to 3
+move 8 from 2 to 6
+move 4 from 1 to 8
+move 12 from 2 to 3
+move 4 from 6 to 8
+move 10 from 8 to 3
+move 14 from 3 to 8
+move 5 from 5 to 8
+move 1 from 7 to 8
+move 5 from 3 to 5
+move 4 from 7 to 2
+move 2 from 6 to 1
+move 4 from 3 to 7
+move 4 from 5 to 1
+move 21 from 8 to 6
+move 7 from 3 to 2
+move 1 from 5 to 1
+move 4 from 8 to 9
+move 16 from 6 to 1
+move 1 from 8 to 4
+move 5 from 9 to 2
+move 7 from 1 to 7
+move 10 from 1 to 3
+move 1 from 4 to 2
+move 6 from 6 to 5
+move 6 from 1 to 4
+move 4 from 7 to 9
+move 1 from 6 to 5
+move 5 from 7 to 6
+move 3 from 6 to 8
+move 1 from 7 to 6
+move 6 from 4 to 8
+move 4 from 8 to 3
+move 4 from 8 to 4
+move 17 from 2 to 1
+move 8 from 3 to 4
+move 5 from 4 to 3
+move 10 from 1 to 5
+move 11 from 3 to 5
+move 1 from 7 to 9
+move 3 from 6 to 4
+move 9 from 4 to 9
+move 7 from 1 to 3
+move 1 from 4 to 8
+move 7 from 5 to 4
+move 18 from 5 to 1
+move 13 from 1 to 6
+move 1 from 1 to 5
+move 1 from 1 to 6
+move 2 from 3 to 1
+move 1 from 3 to 1
+move 5 from 1 to 6
+move 4 from 5 to 8
+move 2 from 4 to 9
+move 1 from 1 to 9
+move 6 from 3 to 8
+move 1 from 4 to 5
+move 10 from 8 to 7
+move 16 from 6 to 7
+move 1 from 5 to 4
+move 1 from 7 to 2
+move 2 from 2 to 6
+move 2 from 8 to 5
+move 5 from 4 to 9
+move 2 from 5 to 9
+move 7 from 9 to 8
+move 2 from 6 to 9
+move 4 from 8 to 9
+move 7 from 9 to 7
+move 13 from 9 to 5
+move 10 from 5 to 1
+move 3 from 8 to 4
+move 5 from 1 to 3
+move 3 from 5 to 6
+move 3 from 9 to 7
+move 1 from 1 to 7
+move 2 from 1 to 3
+move 1 from 6 to 1
+move 4 from 3 to 8
+move 1 from 8 to 9
+move 1 from 8 to 7
+move 1 from 8 to 4
+move 1 from 9 to 7
+move 1 from 8 to 5
+move 2 from 4 to 3
+move 4 from 6 to 3
+move 1 from 5 to 1
+move 1 from 6 to 4
+move 2 from 4 to 5
+move 1 from 4 to 6
+move 1 from 6 to 4
+move 30 from 7 to 3
+move 1 from 5 to 1
+move 6 from 7 to 3
+move 2 from 1 to 7
+move 2 from 1 to 2
+move 2 from 2 to 1
+move 1 from 4 to 9
+move 3 from 1 to 2
+move 1 from 9 to 5
+move 2 from 7 to 1
+move 1 from 7 to 3
+move 1 from 1 to 9
+move 1 from 5 to 8
+move 1 from 1 to 2
+move 1 from 7 to 3
+move 1 from 9 to 4
+move 18 from 3 to 4
+move 1 from 5 to 9
+move 1 from 9 to 6
+move 1 from 2 to 7
+move 1 from 8 to 7
+move 1 from 6 to 3
+move 1 from 7 to 2
+move 14 from 4 to 6
+move 1 from 7 to 6
+move 15 from 6 to 4
+move 20 from 3 to 1
+move 5 from 4 to 9
+move 5 from 4 to 2
+move 15 from 1 to 7
+move 11 from 7 to 9
+move 2 from 7 to 6
+move 1 from 6 to 4
+move 1 from 6 to 3
+move 2 from 7 to 8
+move 10 from 4 to 3
+move 15 from 9 to 3
+move 1 from 9 to 7
+move 29 from 3 to 6
+move 3 from 1 to 6
+move 1 from 8 to 4
+move 2 from 4 to 3
+move 1 from 8 to 9
+move 4 from 6 to 1
+move 20 from 6 to 2
+move 5 from 1 to 9
+move 3 from 6 to 2
+move 4 from 6 to 3
+move 4 from 3 to 1
+move 4 from 1 to 4
+move 3 from 4 to 8
+move 6 from 3 to 4
+move 6 from 2 to 6
+move 1 from 7 to 1
+move 3 from 6 to 8
+move 6 from 9 to 3
+move 1 from 1 to 4
+move 1 from 1 to 7
+move 3 from 4 to 5
+move 2 from 6 to 4
+move 2 from 5 to 6
+move 4 from 8 to 7
+move 1 from 5 to 6
+move 1 from 8 to 4
+move 1 from 8 to 4
+move 2 from 4 to 9
+move 4 from 7 to 8
+move 4 from 4 to 3
+move 1 from 7 to 9
+move 4 from 8 to 6
+move 1 from 3 to 4
+move 1 from 3 to 5
+move 2 from 4 to 7
+move 4 from 6 to 3
+move 2 from 9 to 1
+move 2 from 7 to 4
+move 1 from 5 to 1
+move 1 from 3 to 4
+move 1 from 9 to 3
+move 4 from 4 to 5
+move 2 from 5 to 3
+move 1 from 5 to 7
+move 1 from 5 to 8
+move 2 from 6 to 4
+move 3 from 1 to 3
+move 21 from 3 to 5
+move 3 from 6 to 1
+move 1 from 7 to 1
+move 4 from 2 to 6
+move 1 from 8 to 2
+move 10 from 2 to 4
+move 4 from 1 to 2
+move 1 from 6 to 5
+move 2 from 6 to 9
+move 7 from 4 to 9
+move 1 from 6 to 5
+move 3 from 9 to 4
+move 6 from 2 to 8
+move 3 from 9 to 1
+move 8 from 4 to 3
+move 1 from 9 to 4
+move 21 from 5 to 7
+move 1 from 1 to 3
+move 2 from 9 to 6
+move 14 from 7 to 1
+move 2 from 4 to 1
+move 2 from 8 to 7
+move 1 from 8 to 2
+move 11 from 2 to 9
+move 8 from 9 to 6
+move 4 from 7 to 1
+move 1 from 7 to 4
+move 2 from 3 to 5
+move 1 from 1 to 6
+move 1 from 8 to 2
+move 3 from 7 to 5
+move 6 from 1 to 7
+move 1 from 8 to 7
+move 1 from 4 to 5
+move 4 from 6 to 5
+move 6 from 7 to 6
+move 3 from 9 to 1
+move 1 from 7 to 3
+move 11 from 5 to 1
+move 1 from 5 to 2
+move 9 from 6 to 4
+move 1 from 7 to 3
+move 2 from 6 to 1
+move 1 from 2 to 1
+move 1 from 2 to 6
+move 14 from 1 to 5
+move 1 from 8 to 4
+move 10 from 1 to 5
+move 3 from 5 to 1
+move 8 from 3 to 8
+move 16 from 5 to 7
+move 2 from 1 to 9
+move 3 from 8 to 1
+move 1 from 2 to 4
+move 6 from 7 to 4
+move 3 from 5 to 8
+move 2 from 3 to 6
+move 7 from 1 to 7
+move 14 from 4 to 3
+move 9 from 7 to 8
+move 2 from 4 to 1
+move 9 from 8 to 4
+move 7 from 8 to 2
+move 6 from 1 to 8
+move 1 from 9 to 7
+move 1 from 1 to 6
+move 1 from 9 to 6
+move 1 from 5 to 9
+move 1 from 5 to 3
+move 9 from 4 to 9
+move 3 from 3 to 6
+move 8 from 6 to 3
+move 1 from 2 to 9
+move 8 from 9 to 8
+move 6 from 2 to 9
+move 2 from 6 to 1
+move 7 from 8 to 6
+move 2 from 9 to 6
+move 8 from 7 to 8
+move 1 from 4 to 5
+move 9 from 3 to 5
+move 2 from 1 to 4
+move 1 from 7 to 4
+move 2 from 4 to 3
+move 11 from 8 to 1
+move 1 from 4 to 7
+move 1 from 7 to 8
+move 5 from 1 to 3
+move 4 from 6 to 4
+move 2 from 4 to 8
+move 1 from 4 to 8
+move 7 from 8 to 9
+move 1 from 8 to 9
+move 1 from 8 to 5
+move 18 from 3 to 2
+move 17 from 2 to 7
+move 6 from 5 to 4
+move 1 from 2 to 5
+move 4 from 4 to 6
+move 4 from 6 to 9
+move 15 from 7 to 9
+move 2 from 1 to 6
+move 2 from 7 to 9
+move 28 from 9 to 2
+move 1 from 6 to 7
+move 4 from 6 to 9
+move 3 from 1 to 7
+move 2 from 6 to 3
+move 1 from 4 to 7
+move 8 from 9 to 5
+move 13 from 5 to 3
+move 1 from 5 to 7
+move 3 from 9 to 4
+move 8 from 3 to 7
+move 28 from 2 to 5
+move 1 from 9 to 8
+move 4 from 3 to 4
+move 4 from 7 to 5
+move 2 from 3 to 9
+move 21 from 5 to 4
+move 1 from 5 to 7
+move 1 from 3 to 5
+move 3 from 5 to 7
+move 1 from 1 to 3
+move 3 from 7 to 3
+move 5 from 7 to 6
+move 10 from 4 to 8
+move 6 from 5 to 4
+move 1 from 9 to 3
+move 15 from 4 to 5
+move 10 from 4 to 7
+move 3 from 3 to 7
+move 1 from 3 to 4
+move 1 from 3 to 4
+move 7 from 5 to 1
+move 2 from 4 to 7
+move 1 from 9 to 2
+move 2 from 6 to 9
+move 1 from 5 to 3
+move 1 from 3 to 8
+move 10 from 7 to 9
+move 2 from 8 to 1
+move 9 from 9 to 2
+move 1 from 4 to 3
+move 9 from 8 to 7
+move 1 from 2 to 8
+move 5 from 5 to 4
+move 1 from 3 to 2
+move 5 from 4 to 3
+move 3 from 5 to 9
+move 6 from 7 to 3
+move 1 from 6 to 5
+move 5 from 9 to 7
+move 2 from 5 to 6
+move 3 from 6 to 7
+move 4 from 1 to 4
+move 6 from 2 to 7
+move 17 from 7 to 5
+move 1 from 6 to 1
+move 5 from 3 to 6
+move 10 from 7 to 2
+move 1 from 8 to 4
+move 1 from 9 to 8
+move 3 from 4 to 1
+move 1 from 7 to 4
+move 5 from 5 to 9
+move 2 from 8 to 7
+move 3 from 3 to 7
+move 4 from 2 to 3
+move 3 from 4 to 6
+move 7 from 5 to 8
+move 7 from 2 to 8
+move 4 from 9 to 8
+move 12 from 8 to 3
+move 17 from 3 to 2
+move 1 from 7 to 9
+move 1 from 3 to 9
+move 3 from 9 to 1
+move 2 from 5 to 1
+move 1 from 3 to 5
+move 4 from 5 to 8
+move 6 from 8 to 1
+move 17 from 2 to 3
+move 13 from 3 to 2
+move 1 from 3 to 9
+move 1 from 8 to 4
+move 1 from 4 to 8
+move 1 from 9 to 1
+move 2 from 7 to 2
+move 8 from 6 to 2
+move 2 from 7 to 5
+move 9 from 1 to 3
+move 13 from 2 to 9
+move 6 from 1 to 4
+move 6 from 4 to 5
+move 3 from 8 to 1
+move 2 from 1 to 8
+move 8 from 5 to 7
+move 2 from 3 to 1
+move 9 from 3 to 1
+move 3 from 8 to 2
+move 1 from 1 to 9
+move 1 from 3 to 9
+move 6 from 7 to 3
+move 4 from 2 to 7
+move 14 from 1 to 6
+move 2 from 3 to 9
+move 3 from 3 to 7
+move 6 from 2 to 1
+move 2 from 1 to 2
+move 9 from 6 to 3
+move 11 from 9 to 5
+move 9 from 7 to 6
+move 6 from 6 to 2
+move 1 from 1 to 8
+move 5 from 9 to 4
+move 1 from 8 to 5
+move 9 from 2 to 7
+move 10 from 5 to 8

src/day5.ml

@@ -0,0 +1,83 @@
+open Containers
+
+let crane_drop stacks index box =
+  let stack = Array.get stacks index in
+  Array.set stacks index (box @ stack)
+;;
+
+let crane_lift stacks index count =
+  let stack = Array.get stacks index in
+  let boxes, rest = List.take_drop count stack in
+  Array.set stacks index rest;
+  boxes
+;;
+
+let crane_move1 stacks (count, lift, drop) =
+  List.iter
+    (fun _ ->
+      let box = crane_lift stacks lift 1 in
+      crane_drop stacks drop box)
+    List.Infix.(0 --^ count)
+;;
+
+let crane_move stacks (count, lift, drop) =
+  let boxes = crane_lift stacks lift count in
+  crane_drop stacks drop boxes
+;;
+
+let init_stacks lines =
+  let stacks = Array.init 10 (fun _ -> []) in
+  let rec parse_line index line =
+    let chunk, rest = String.take_drop 4 line in
+    match%pcre chunk with
+    | {|(?<letter>\w)|} ->
+      crane_drop stacks index [ letter ];
+      parse_line (index + 1) rest
+    | {| |} -> parse_line (index + 1) rest
+    | _ -> ()
+  in
+  List.iter (parse_line 1) (List.rev lines);
+  stacks
+;;
+
+let move_stacks stacks lines crane_move =
+  let parse_line =
+    function%pcre
+    | {|move (?<count>\d+) from (?<lift>\d+) to (?<drop>\d+)|} ->
+      int_of_string count, int_of_string lift, int_of_string drop
+    | line -> failwith @@ Printf.sprintf "could not parse line '%s'" line
+  in
+  List.iter
+    (fun line ->
+      let instructions = parse_line line in
+      crane_move stacks instructions)
+    lines
+;;
+
+let parse_input lines =
+  let init_lines, lines = List.take_drop_while (String.starts_with ~prefix:"[") lines in
+  let move_lines = List.drop_while Fun.(not % String.starts_with ~prefix:"move") lines in
+  init_lines, move_lines
+;;
+
+let solve crane_move =
+  let init_lines, move_lines = parse_input @@ Utils.lines_of_input 5 in
+  let stacks = init_stacks init_lines in
+  let () = move_stacks stacks move_lines crane_move in
+  Array.fold_left
+    (fun acc stack ->
+      match stack with
+      | top :: _ -> acc ^ top
+      | [] -> acc)
+    ""
+    stacks
+;;
+
+let part1 () = solve crane_move1
+let part2 () = solve crane_move
+
+let print () =
+  Printf.(
+    printf "Day 5.1: %s\n" @@ part1 ();
+    printf "Day 5.2: %s\n" @@ part2 ())
+;;