2nested-map-as ( seq1 seq2 quot exemplar -- seq )

Vocabulary

sequences.extras

Inputs

seq1	an object
seq2	an object
quot	an object
exemplar	an object

Outputs

seq

an object

Definition

USING: kernel math sequences ;

IN: sequences.extras

: 2nested-map-as ( seq1 seq2 quot exemplar -- seq )
    [ 2over [ length ] bi@ * ] dip [
        new-resizable
        [ [ push ] curry compose 2nested-each ] keep
    ] keep like ; inline