Anonymous user
Reduced row echelon form: Difference between revisions
m
→{{header|OCaml}}
(→{{header|OCaml}}: (another implementation)) |
|||
Line 1,441:
for c = 0 to min (nc-1) (nr-1) do
for r = c+1 to nr-1 do
if
let v = m.(r) in (m.(r) <- m.(c); m.(r) <- v)
done;
| |||