1-pivots ( matrix -- matrix )

Vocabulary

math.matrices.elimination

Inputs

matrix

an object

Outputs

matrix

an object

Definition

USING: kernel math math.vectors sequences ;

IN: math.matrices.elimination

: 1-pivots ( matrix -- matrix )
    [ dup leading nip [ recip v*n ] when* ] map ;