revert math.matrices.elimintion until someone fixes it properly

2009-11-24 20:41:59 -06:00 · 2009-11-24 20:41:59 -06:00 · 7a00f24d6b
parent 5793d2e2eb
commit 7a00f24d6b
1 changed files with 4 additions and 1 deletions
--- a/basis/math/matrices/elimination/elimination.factor
+++ b/basis/math/matrices/elimination/elimination.factor
@ -52,8 +52,11 @@ SYMBOL: matrix
    [ first-col ] keep
    dup 1 + rows-from clear-col ;

+: find-row ( row# quot -- i elt )
+    [ rows-from ] dip find ; inline
+
 : pivot-row ( col# row# -- n )
-    rows-from swap '[ [ _ ] dip nth-row nth abs ] sort-with last ;
+    [ dupd nth-row nth zero? not ] find-row 2nip ;

 : (echelon) ( col# row# -- )
    over cols < over rows < and [