aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Matrix-transposition/Haskell/matrix-transposition-1.hs Normal file
View file

@ -0,0 +1,2 @@
*Main> transpose [[1,2],[3,4],[5,6]]
[[1,3,5],[2,4,6]]

7
Task/Matrix-transposition/Haskell/matrix-transposition-2.hs Normal file
View file

@ -0,0 +1,7 @@
import Data.Array
swap (x,y) = (y,x)
transpArray :: (Ix a, Ix b) => Array (a,b) e -> Array (b,a) e
transpArray a = ixmap (swap l, swap u) swap a where
(l,u) = bounds a