dunham/newt
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

additional cast from AoC
Some checks are pending
Publish Playground / build (push) Waiting to run
Details
Publish Playground / deploy (push) Blocked by required conditions
Details

Browse Source
This commit is contained in:
Steve Dunham
2025-12-26 13:02:27 -08:00
parent 9bbc7208d7
commit d19f39fa18
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/Data/Fin.newt
View File

@@ -26,6 +26,10 @@ instance ∀ n. Cast (Fin n) Nat where
cast FZ = Z cast FZ = Z
cast (FS x) = S (cast x) 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 instance ∀ k. Show (Fin k) where
show x = show {Nat} $ cast x show x = show {Nat} $ cast x