pivot-row ( col# row# -- n )


Vocabulary
math.matrices.elimination

Inputs
col#an object
row#an object


Outputs
nan object


Definition
USING: kernel math sequences ;

IN: math.matrices.elimination

: pivot-row ( col# row# -- n )
[ dupd nth-row nth zero? not ] find-row 2nip ;