Fix aoc2024 build

- Holes are no longer allowed when building executables
- Stack overflow in mapMaybe (Day15)

aoc2024/Day17.newt

@@ -72,7 +72,7 @@ step mach@(M a b c mem ip out) =
     5 => let o = combo op % itobi 8 in step (M a b c mem (ip + 2) (out :< bitoi o))
     6 => let b = a >>> combo op in step (M a b c mem (ip + 2) out)
     7 => let c = a >>> combo op in step (M a b c mem (ip + 2) out)
-    _ => ?
+    _ => mach
   where
     combo : Int → BigInt
     combo 4 = a

aoc2024/Day20.newt

@@ -72,10 +72,7 @@ calcCheats start dists fuel threshold = go (toList start) 0
      -- only '.' have dist
     tryCand : Int → Point → Point → Int
     tryCand l pt cand = case lookupMap cand dists of
-      Just (_, dist) =>
-        let d = manh pt cand in
-        if fuel < d then (let x = (trace "X" (pt, cand, d)) in ?) else
-        if l + manh pt cand + dist <= threshold then 1 else 0
+      Just (_, dist) => if l + manh pt cand + dist <= threshold then 1 else 0
       Nothing => 0
 
     go : List (Point × Int) → Int → Int

aoc2024/Day21.newt

@@ -78,7 +78,7 @@ pathCost from to kp =
   case lookupMap (from, to) kp.costs of
     Just (_, cost) => (kp, cost)
     Nothing =>
-      let (path :: paths) = getPaths kp.interdit from to | _ => ? in
+      let (path :: paths) = getPaths kp.interdit from to | _ => fatalError "empty path list" in
       case kp of
         (KP n s i c Nothing) => (kp, 1)
         (KP n s i c (Just kp')) =>

aoc2024/Day21monad.newt

@@ -106,7 +106,7 @@ pathCost from to = do
   case lookupMap (from, to) (.costs kp) of
     Just (_, cost) => pure {State Keypad} cost
     Nothing =>
-      let (path :: paths) = getPaths (.interdit kp) from to | _ => ? in
+      let (path :: paths) = getPaths (.interdit kp) from to | _ => fatalError "empty paths" in
       case kp of
         (KP n s i c Nothing) => pure 1
         (KP n s i c (Just kp')) => do

aoc2024/Day24.newt

@@ -132,7 +132,7 @@ swapPins a g (MkG i1 i2 op out) =
   else MkG i1 i2 op out
 
 fail : ∀ a. String -> a
-fail msg = let x = trace "FAIL" msg in ?
+fail msg = fatalError msg
 
 check : List Gate → List Int → String → Either (String × String) Unit
 check gates Nil carry = Right MkUnit

aoc2024/Day9.newt

@@ -21,7 +21,7 @@ part1 : List File -> Int
 part1 fs = go 0 0 fs $ reverse fs
   where
     go : Int -> Int -> List File -> List File -> Int
-    go pos csum Nil bwd = ?
+    go pos csum Nil bwd = fatalError "Shouldn't happen"
     go pos csum fwd Nil = csum
     go pos csum ((id, 0, 0) :: fwd) bwd = go pos csum fwd bwd
     go pos csum fwd ((id, 0, _) :: bwd) = go pos csum fwd bwd