Anonymous user
Matrix transposition: Difference between revisions
→{{header|Haskell}}
(Updated to work with Nim 1.4: suppressed ".. <".) |
|||
Line 1,898:
transpArray a = ixmap (swap l, swap u) swap a where
(l,u) = bounds a</lang>
From Davie ''Introduction to Functional Programming Systems Using Haskell'':
<lang haskell>transpose ([]:rest) = []
transpose x = Prelude.map hd x : transpose (Prelude.map tl x)
where hd (p:_) = p
tl (_:q) = q</lang>
| |||