Add sequences.lib.replicate

2008-04-22 23:45:30 -07:00 · 2008-04-22 23:45:30 -07:00 · f9659ecc7c
parent 6a0dc9f024
commit f9659ecc7c
1 changed files with 4 additions and 0 deletions
--- a/extra/sequences/lib/lib.factor
+++ b/extra/sequences/lib/lib.factor
@ -131,6 +131,10 @@ MACRO: firstn ( n -- )
    [ find drop [ head-slice ] when* ] curry
    [ dup ] swap compose keep like ;

+: replicate ( seq quot -- newseq )
+    #! quot: ( -- obj )
+    [ drop ] swap compose map ;
+
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 <PRIVATE