reduced ( matrix' -- matrix'' )

Vocabulary

math.matrices.elimination

Inputs

matrix'

an object

Outputs

matrix''

an object

Definition

USING: kernel sequences ;

IN: math.matrices.elimination

: reduced ( matrix' -- matrix'' )
    [
        rows <iota> <reversed> [
            dup nth-row leading drop
            [ swap dup <iota> clear-col ] [ drop ] if*
        ] each
    ] with-matrix ;