(echelon) ( col# row# -- )

Vocabulary

math.matrices.elimination

Inputs

col#	an object
row#	an object

Outputs

None

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 ;