pivot-row ( col# row# -- n ) (original) (raw)
Vocabulary
math.matrices.elimination
Inputs
| col# | an object |
|---|---|
| row# | an object |
Outputs
| n | an object |
|---|
Definition
USING: kernel math sequences ;
: pivot-row ( col# row# -- n )
[ dupd nth-row nth zero? not ] find-row 2nip ;