{"header":{"message":"Day 10 in OCaml","description":null,"timestamp":"2021-12-12T12:53:21Z","authors":[{"email":"aru@cosmic.voyage","name":"aru"}]},"hash":"7DELAU7XJGJSXTDYK4P4D2OBLJ5GYPPYSQ4SE7QJBU7ULGQSPKAQC","authors":[],"deps":{"hashes":[["7DELAU7XJGJSXTDYK4P4D2OBLJ5GYPPYSQ4SE7QJBU7ULGQSPKAQC","Day 10 in OCaml"],["AA",null],["KY4DVKYHMLUIQBB24KSMKFFCK332BMX55BSI33FOLOQ4DYK33G7AC","Day 01 in python"]],"deps":["KY4DVKYHMLUIQBB24KSMKFFCK332BMX55BSI33FOLOQ4DYK33G7AC"],"known":[]},"hunks":[{"FileAdd":{"meta":{"basename":"10","metadata":576},"context":[{"change":2,"pos":2}],"contents":[]}},{"FileAdd":{"meta":{"basename":"dune","metadata":0},"context":[{"change":0,"pos":1}],"contents":[{"Add":"(executable"},{"Add":" (libraries core)"},{"Add":" (name solution))"}]}},{"FileAdd":{"meta":{"basename":"dune-project","metadata":0},"context":[{"change":0,"pos":1}],"contents":[{"Add":"(lang dune 2.9)"}]}},{"FileAdd":{"meta":{"basename":"example_input","metadata":0},"context":[{"change":0,"pos":1}],"contents":[{"Add":"[({(<(())[]>[[{[]{<()<>>"},{"Add":"[(()[<>])]({[<{<<[]>>("},{"Add":"{([(<{}[<>[]}>{[]{[(<()>"},{"Add":"(((({<>}<{<{<>}{[]{[]{}"},{"Add":"[[<[([]))<([[{}[[()]]]"},{"Add":"[{[{({}]{}}([{[{{{}}([]"},{"Add":"{<[[]]>}<{[{[{[]{()[[[]"},{"Add":"[<(<(<(<{}))><([]([]()"},{"Add":"<{([([[(<>()){}]>(<<{{"},{"Add":"<{([{{}}[<[[[<>{}]]]>[]]"}]}},{"FileAdd":{"meta":{"basename":"solution.ml","metadata":0},"context":[{"change":0,"pos":1}],"contents":[{"Add":"open Core"},{"Add":""},{"Add":"let read_lines path ="},{"Add":" In_channel.read_lines path"},{"Add":""},{"Add":"let opening = function"},{"Add":" | '(' | '[' | '<' | '{' -> true"},{"Add":" | _ -> false"},{"Add":""},{"Add":"let matching = function"},{"Add":" | '(' -> ')'"},{"Add":" | '[' -> ']'"},{"Add":" | '{' -> '}'"},{"Add":" | '<' -> '>'"},{"Add":" | _ -> assert false"},{"Add":""},{"Add":"let illegal_character_score = function"},{"Add":" | ')' -> 3"},{"Add":" | ']' -> 57"},{"Add":" | '}' -> 1197"},{"Add":" | '>' -> 25137"},{"Add":" | _ -> assert false"},{"Add":""},{"Add":"type line_state ="},{"Add":" | Valid"},{"Add":" | Incomplete of char list"},{"Add":" | Invalid of int"},{"Add":""},{"Add":"let line_score (line : string) ="},{"Add":" String.fold_until ~init:[]"},{"Add":" ~f: (fun stack character ->"},{"Add":" match stack, character with"},{"Add":" | x, c when opening c -> Continue (matching c :: x)"},{"Add":" | x :: xs, c when Stdlib.(x = c) -> Continue xs"},{"Add":" | _, c -> Stop (Invalid (illegal_character_score c))"},{"Add":" )"},{"Add":" ~finish: (fun stack ->"},{"Add":" if List.is_empty stack"},{"Add":" then Valid"},{"Add":" else Incomplete stack"},{"Add":" )"},{"Add":" line"},{"Add":""},{"Add":"let part1 lines ="},{"Add":" lines"},{"Add":" |> List.map ~f:(function Invalid x -> x | _ -> 0)"},{"Add":" |> List.fold_left ~f:(+) ~init:0"},{"Add":""},{"Add":"let part2_character_score = function"},{"Add":" | ')' -> 1"},{"Add":" | ']' -> 2"},{"Add":" | '}' -> 3"},{"Add":" | '>' -> 4"},{"Add":" | _ -> assert false"},{"Add":""},{"Add":"let score_incomplete stack ="},{"Add":" List.fold_left ~init:0"},{"Add":" ~f:(fun acc current -> acc * 5 + part2_character_score current)"},{"Add":" stack"},{"Add":""},{"Add":"let part2 lines ="},{"Add":" let filtered = List.filter lines ~f:(function Incomplete _ -> true | _ -> false) in"},{"Add":" let sorted_scores = filtered"},{"Add":" |> List.map ~f:(function Incomplete x -> x | _ -> assert false)"},{"Add":" |> List.map ~f:score_incomplete"},{"Add":" |> List.sort ~compare:compare"},{"Add":" in List.nth_exn sorted_scores ((List.length filtered) / 2)"},{"Add":""},{"Add":"let input = read_lines (Sys.get_argv ()).(1)"},{"Add":"let preprocessed_lines = List.map ~f:line_score input"},{"Add":""},{"Add":"let () = Printf.printf \"Part 1: %d\\n\" (part1 preprocessed_lines)"},{"Add":"let () = Printf.printf \"Part 2: %d\\n\" (part2 preprocessed_lines)"}]}}],"owner":"aru","repo":"aoc-2021","token":"w89B7soztuZCLZ7vh2aAVrul00FiU6qy9q2/TFFVS1E=","login":null}

…

Dependencies

Change contents