map-unzip ( quot -- quot' )

Vocabulary

assocs.extras

Inputs

quot

an object

Outputs

quot'

an object

Definition

USING: assocs.extras.private combinators.smart kernel sequences
;

IN: assocs.extras

MACRO: map-unzip ( quot -- quot' )
    [
        inputs/outputs dup
        [ unpacking ] [ packing ] [ unzipping ] tri*
    ] keep -rot [ [ compose ] dip compose ] dip
    [ [ map ] curry ] dip compose ;