Gaussian elimination: Difference between revisions

m
Line 1,499:
bubble (xs,bs) = (go xs, go bs)
where
idmax = snd.minimummaximum.flip zip [0..].map (negate.abs.head) $ xs
go ys = let (us,vs) = splitAt idmax ys in vs ++ us
678

edits