additional cast from AoC

2025-12-26 13:02:27 -08:00
parent 9bbc7208d7
commit d19f39fa18
1 changed files with 4 additions and 0 deletions
--- a/src/Data/Fin.newt
+++ b/src/Data/Fin.newt
@@ -26,6 +26,10 @@ instance ∀ n. Cast (Fin n) Nat where
  cast FZ = Z
  cast (FS x) = S (cast x)

+instance ∀ n. Cast (Fin n) Int where
+  cast FZ = 0
+  cast (FS x) = 1 + (cast x)
+
 instance ∀ k. Show (Fin k) where
  show x = show {Nat} $ cast x