2014-04-07から1日間の記事一覧
pmat :: Int -> [[a]] -> [[a]] pmat n d = [tail (d !! i) | i <- [0..length d - 1], i /= n] sig :: (Integral a, Num b) => a -> b sig a = if mod a 2 == 0 then 1 else -1 det :: (Num a, Fractional a) => [[a]] -> a det [[x]] = x det [[a, b], [c,…