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


Vocabulary
math.matrices.elimination

Definition
USING: kernel math sequences ;

IN: math.matrices.elimination

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