Small clean up

drewolson · Dec 8, 2023 · 7a1873e · 7a1873e
1 parent 1fa7720
commit 7a1873e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/year2023/day07.ml b/lib/year2023/day07.ml
@@ -69,7 +69,7 @@ let hand_type hand =
  let counts =
  hand
  |> List.sort ~compare:compare_card
- |> List.group ~break:(fun a b -> not (compare_card a b = 0))
+ |> List.group ~break:(fun a b -> not (equal_card a b))
  |> List.map ~f:List.length
  |> List.sort ~compare:(fun a b -> -compare a b)
  in
@@ -98,7 +98,7 @@ let hand_type' hand =
  hand
  |> expand
  |> List.map ~f:hand_type
- |> List.sort ~compare:[%compare: type']
+ |> List.sort ~compare:compare_type'
  |> List.hd_exn
 ;;