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

make m^n private

db4
prunedtree 2009-06-12 01:29:34 -07:00
parent 68f7b1706a
commit b426f28738
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -61,8 +61,11 @@ PRIVATE>
: cross-zip ( seq1 seq2 -- seq1xseq2 ) : cross-zip ( seq1 seq2 -- seq1xseq2 )
[ [ 2array ] with map ] curry map ; [ [ 2array ] with map ] curry map ;
<PRIVATE
: m^n ( m n -- n ) : m^n ( m n -- m )
make-bits over first length identity-matrix make-bits over first length identity-matrix
[ [ dupd m. ] when [ dup m. ] dip ] reduce nip ; [ [ dupd m. ] when [ dup m. ] dip ] reduce nip ;
PRIVATE>