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…

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 …