Reduced row echelon form: Difference between revisions

Content deleted Content added

Inline

@@ Line 2,388: / 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}}==