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

dotting issue

Browse Source
This commit is contained in:
Steve Dunham
2024-10-03 21:37:50 -07:00
parent 497ef7a9f0
commit 38b09ac028
2 changed files with 83 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
tests/black/TestCase4.newt
View File

@@ -49,9 +49,9 @@ zipWith f (x :: xs) (y :: ys) = f x y :: zipWith f xs ys
-- NOW cases very broken here - empty switches
transpose : {a : U} {m n : Nat} -> Vect m (Vect n a) -> Vect n (Vect m a)
transpose {a} {m} {n} Nil = vec n Nil
-- TODO If I put S k in here for m we get a unification error on the RHS
transpose {a} {m} {n} (x :: xs) = zipWith (_::_) x (transpose xs)
transpose {a} {Z} {n} Nil = vec n Nil
transpose {a} {S z} {n} (_::_ {a'} {j} x xs) = zipWith (_::_) x (transpose xs)
-- transpose {a} {m} {n} (_::_ {a'} {j} x xs) = zipWith (_::_) x (transpose xs)
ptype Int