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

cleanup

db4
Jon Harper 2010-10-19 18:03:05 +02:00 committed by Slava Pestov
parent a400b39fa1
commit ff1d7914e8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/sequences/product/product.factor
View File

@ -14,7 +14,7 @@ M: product-sequence length lengths>> product ;
<PRIVATE
: ns ( n lengths -- ns )
[ V{ } clone ] 2dip [ /mod swap [ over push ] dip ] each drop ;
[ /mod ] map nip ;
: nths ( ns seqs -- nths )
[ nth ] { } 2map-as ;
@ -38,10 +38,10 @@ M: product-sequence length lengths>> product ;
[ 0 over [ 1 + ] change-nth ] dip carry-ns ;
: start-product-iter ( sequences -- ns lengths )
[ [ drop 0 ] map ] [ [ length ] map ] bi ;
[ length 0 <array> ] [ [ length ] map ] bi ;
: end-product-iter? ( ns lengths -- ? )
[ 1 tail* first ] bi@ = ;
[ last ] bi@ = ;
PRIVATE>