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

Vocabulary

sequences.extras

Inputs

seq1	an object
seq-quot	an object
quot	an object
exemplar	an object

Outputs

seq

an object

Definition

USING: kernel math sequences ;

IN: sequences.extras

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