rnhmjoj/interlude
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add proof for transpose

Browse Source
This commit is contained in:
rnhmjoj 2016-11-16 22:06:19 +01:00
parent c631d24d38
commit 358fb280ae
No known key found for this signature in database
GPG Key ID: 362BB82B7E496B7C
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/Vec.hs
View File

@ -175,7 +175,8 @@ intercalate xs xss = concat (intersperse xs xss)
-- --
transpose ∷ SingI n ⇒ Vec (Vec a n) m → Vec (Vec a m) n transpose ∷ SingI n ⇒ Vec (Vec a n) m → Vec (Vec a m) n
transpose Nil = replicate Nil transpose Nil = replicate Nil
transpose (xs :- xss) = zipWith (:-) xs (transpose xss) transpose (xs :- xss) = gcastWith proof (zipWith (:-) xs (transpose xss))
where proof = min_self (sLength xs)
-- | 'foldl' applied to a binary operator, a starting value -- | 'foldl' applied to a binary operator, a starting value