first-col ( row# -- n )

Vocabulary

math.matrices.elimination

Inputs

row#

an object

Outputs

n

an object

Definition

USING: kernel math ;

IN: math.matrices.elimination

: first-col ( row# -- n ) 0 swap nth-row [ zero? not ] skip ;