From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 21 Feb 2023 01:38:45 +0000 (-0600)
Subject: sequences.extras: working towards a simple map combinator
X-Git-Tag: 0.99~540
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=47da6d64a92cdf05be94a512fd0287c64a49c236

sequences.extras: working towards a simple map combinator
---

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 0bceae0eb2..350b41d5e7 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -1121,3 +1121,9 @@ INSTANCE: virtual-zip-index immutable-sequence
 
 : call-push-when ( ..a elt quot: ( ..a elt -- ..b elt' ? ) accum -- ..b )
     [ call ] dip swap [ push ] [ 2drop ] if ; inline
+
+: fry-map-as ( seq quot exemplar -- newseq )
+    [ 2drop length ]
+    [ overd new-sequence-like dup ]
+    [ 2nip ] 3tri
+    '[ [ [ _ nth-unsafe @ ] [ _ set-nth-unsafe ] bi ] each-integer _ _ like ] call ;