(echelon) ( col# row# -- )


Vocabulary
math.matrices.elimination

Definition
USING: kernel math ;

IN: math.matrices.elimination

: (echelon) ( col# row# -- )
over cols < over rows < and [
2dup pivot-row [ over do-row 1 + ] when* [ 1 + ] dip
(echelon)
] [ 2drop ] if ;