do-row ( exchange-with row# -- )

Vocabulary

math.matrices.elimination

Inputs

exchange-with	an object
row#	an object

Outputs

None

Definition

USING: kernel math ;

IN: math.matrices.elimination

: do-row ( exchange-with row# -- )
    [ exchange-rows ] keep [ first-col ] keep dup 1 +
    rows-from clear-col ;