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 dup
[ swap dup iota clear-col ] [ 2drop ] if
] each
] with-matrix ;