clear-col ( col# row# rows -- )

Vocabulary

math.matrices.elimination

Inputs

col#	an object
row#	an object
rows	an object

Outputs

None

Definition

USING: kernel sequences ;

IN: math.matrices.elimination

: clear-col ( col# row# rows -- )
    [ nth-row ] dip [ [ 2dup ] dip (clear-col) ] each 2drop ;