Gaussian elimination: Difference between revisions
m
→From scratch
m (→From scratch) |
m (→From scratch) |
||
Line 1,499:
bubble (xs,bs) = (go xs, go bs)
where
idmax = snd.maximum.flip zip [0..].map (
go ys = let (us,vs) = splitAt idmax ys in vs ++ us
|