improve already defined error messages

2024-12-22 14:58:45 -08:00
parent e0c75ff487
commit ad2f29d0af
3 changed files with 4 additions and 8 deletions
--- a/aoc2024/Day17.newt
+++ b/aoc2024/Day17.newt
@@ -80,10 +80,6 @@ step mach@(M a b c mem ip out) =
    combo 6 = c
    combo n = itobi n

-find : ∀ a. (a → Bool) → List a → Maybe a
-find f Nil = Nothing
-find f (x :: xs) = if f x then Just x else find f xs
-
 Cand : U
 Cand = BigInt ×  SnocList Int ×  List Int