Entries from 2014-04-19 to 1 day
import Data.Array type Matrix a = Array (Int, Int) a makeMatrix :: [[a]] -> Matrix a makeMatrix xs = listArray ((1, 1), (m, n)) $ concat xs where m = length xs n = length $ head xs swapRows :: Int -> Int -> Matrix a -> Matrix a swapRows i …