From 47da6d64a92cdf05be94a512fd0287c64a49c236 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 20 Feb 2023 19:38:45 -0600 Subject: [PATCH] sequences.extras: working towards a simple map combinator --- extra/sequences/extras/extras.factor | 6 ++++++ 1 file changed, 6 insertions(+) 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 ; -- 2.34.1