From 13a84d1ff19d3f330f40d30b5649dda4f5ee5b98 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 27 Feb 2014 14:31:25 -0800 Subject: [PATCH] sequences.extras: adding replicate-into. --- extra/sequences/extras/extras.factor | 3 +++ 1 file changed, 3 insertions(+) diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor index b1196e45e0..a138525f12 100644 --- a/extra/sequences/extras/extras.factor +++ b/extra/sequences/extras/extras.factor @@ -524,3 +524,6 @@ PRIVATE> : change-last-unsafe ( seq quot -- ) [ drop length 1 - ] [ change-nth-unsafe ] 2bi ; inline + +: replicate-into ( ... seq quot: ( ... -- ... newelt ) -- ... ) + over [ length ] 2dip '[ _ dip _ set-nth-unsafe ] each-integer ; inline