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

sequences.product: improve stack effects.

John Benediktsson 2011-09-23 10:19:48 -07:00
parent cce00c2651
commit c170282fcd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -49,14 +49,14 @@ PRIVATE>
M: product-sequence nth
product@ nths ;
:: product-each ( sequences quot: ( seq -- ) -- )
:: product-each ( ... sequences quot: ( ... seq -- ... ) -- ... )
sequences start-product-iter :> ( ns lengths )
lengths [ 0 = ] any? [
[ ns lengths end-product-iter? ]
[ ns sequences nths quot call ns lengths product-iter ] until
] unless ; inline
:: product-map-as ( sequences quot: ( seq -- value ) exemplar -- sequence )
:: product-map-as ( ... sequences quot: ( ... seq -- ... value ) exemplar -- ... sequence )
0 :> i!
sequences [ length ] [ * ] map-reduce exemplar
[| result |
@ -64,10 +64,10 @@ M: product-sequence nth
result
] new-like ; inline
: product-map ( sequences quot: ( seq -- value ) -- sequence )
: product-map ( ... sequences quot: ( ... seq -- ... value ) -- ... sequence )
over product-map-as ; inline
:: product-map>assoc ( sequences quot: ( seq -- key value ) exemplar -- assoc )
:: product-map>assoc ( ... sequences quot: ( ... seq -- ... key value ) exemplar -- ... assoc )
0 :> i!
sequences [ length ] [ * ] map-reduce { }
[| result |