Entries from 2014-04-21 to 1 day
import Data.Array -- MatrixとVectorの定義 type Matrix a = Array (Int, Int) a type Vector a = Array Int a -- リストからMatrixをつくる makeMatrix :: [[a]] -> Matrix a makeMatrix xs = listArray ((1, 1), (m, n)) $ concat xs where m = length xs…