reduced ( matrix' -- matrix'' )


Vocabulary
math.matrices.elimination

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 ;