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

Oops

db4
Slava Pestov 2009-04-23 03:57:05 -05:00
parent c2fe2a4fea
commit 77c56e55a3
1 changed files with 3 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/math/matrices/matrices.factor
View File

@ -25,19 +25,9 @@ IN: math.matrices
: m* ( m m -- m ) [ v* ] 2map ; : m* ( m m -- m ) [ v* ] 2map ;
: m/ ( m m -- m ) [ v/ ] 2map ; : m/ ( m m -- m ) [ v/ ] 2map ;
TUPLE: flipped { seq read-only } ; : v.m ( v m -- v ) flip [ v. ] with map ;
: m.v ( m v -- v ) [ v. ] curry map ;
M: flipped length seq>> first length ; : m. ( m m -- m ) flip [ swap m.v ] curry map ;
M: flipped nth-unsafe seq>> swap <column> ;
INSTANCE: flipped sequence
C: <flipped> flipped
: v.m ( v m -- v ) <flipped> [ v. ] with map ;
: m.v ( m v -- v ) [ v. ] curry map ; inline
: m. ( m m -- m ) <flipped> [ swap m.v ] curry map ;
: mmin ( m -- n ) [ 1/0. ] dip [ [ min ] each ] each ; : mmin ( m -- n ) [ 1/0. ] dip [ [ min ] each ] each ;
: mmax ( m -- n ) [ -1/0. ] dip [ [ max ] each ] each ; : mmax ( m -- n ) [ -1/0. ] dip [ [ max ] each ] each ;