Cramer's rule: Difference between revisions

Line 988:
mult:: Num a => [[a]] -> [[a]] -> [[a]]
mult uss vss = map (foldl(\xs -> if null xs then [] else foldl1 (zipWith (+)) ts xs). zipWith (\vs u -> map (u*) vs) vss) uss
where ts = map (const 0).concat $ take 1 vss
 
matI::(Num a) => Int -> [[a]]
678

edits