Anonymous user
Reduced row echelon form: Difference between revisions
Racket version
(Racket version) |
|||
Line 2,388:
print(m)
print(rref(m))</lang>
=={{header|Racket}}==
<lang racket>
#lang racket
(require math)
(define (reduced-echelon M)
(matrix-row-echelon M #t #t))
(reduced-echelon
(matrix [[1 2 -1 -4]
[2 3 -1 -11]
[-2 0 -3 22]]))
</lang>
Output:
<pre>
(mutable-array #[#[1 0 0 -8]
#[0 1 0 1]
#[0 0 1 -2]])
</pre>
=={{header|REXX}}==
| |||