steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.matrices.elimination: avoid double length call.

db4
John Benediktsson 2015-07-14 15:59:24 -07:00
parent 8ccb173da0
commit c89cdc4c67
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/math/matrices/elimination/elimination.factor
View File

@ -21,7 +21,7 @@ SYMBOL: matrix
: cols ( -- n ) 0 nth-row length ; : cols ( -- n ) 0 nth-row length ;
: skip ( i seq quot -- n ) : skip ( i seq quot -- n )
over [ find-from drop ] dip length or ; inline over [ find-from drop ] dip swap [ nip ] [ length ] if* ; inline
: first-col ( row# -- n ) : first-col ( row# -- n )
#! First non-zero column #! First non-zero column