mgrettondann/ocaml-aoc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Upgrade Ocamlformat version.

Browse Source
This commit is contained in:
Matthew Gretton-Dann
2024-12-06 15:42:18 +00:00
parent 7b51696740
commit 590637e0de
4 changed files with 19 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
bin/day2405.ml
View File

@@ -14,7 +14,7 @@ let find_rule a b m =
| Some s -> ( match IntSet.find_opt b s with Some _ -> true | None -> false)
| None -> false
(** [compare m a b] is a total ordering on pages in the rule map [m]. Returns
(** [compare m a b] is a total ordering on pages in the rule map [m]. Returns
[-1] if [a] should appear before [b], [0] if [a = b], and [1] if [b] should
appear before [a]. *)
let compare m a b =
@@ -35,9 +35,9 @@ let rec is_page_order_valid m pages =
in
match pages with h :: t -> impl h t && is_page_order_valid m t | [] -> true
(** [parse_rules lst] parses the rules in the list [lst] stopping when
encountering an empty line. Returns a pair [(rule_map, tail)].
[tail] starts the line after the empty line. *)
(** [parse_rules lst] parses the rules in the list [lst] stopping when
encountering an empty line. Returns a pair [(rule_map, tail)]. [tail] starts
the line after the empty line. *)
let parse_rules =
let m = Hashtbl.create 17 in
let rec impl = function
@@ -52,7 +52,7 @@ let parse_rules =
in
impl
(** [parse_page_orders lst] parses a list of page orders. *)
(** [parse_page_orders lst] parses a list of page orders. *)
let parse_page_orders =
let rec impl acc = function
| [] -> acc