fry-map-as ( seq quot exemplar -- newseq )


Vocabulary
sequences.extras

Inputs
seqan object
quotan object
exemplaran object


Outputs
newseqan object


Definition
USING: kernel math sequences sequences.private ;

IN: sequences.extras

: fry-map-as ( seq quot exemplar -- newseq )
[ 2drop length ] [ overd new-sequence-like dup ] 3bi [
[ [ [ nth-unsafe ] curry ] dip compose ] dip
[ set-nth-unsafe ] curry [ bi ] 2curry
] dip [ [ each-integer ] curry ] dip [ ] curry compose call
; inline