map-zip-swap ( quot: ( x -- y ) -- alist )

Vocabulary

sequences.extras

Inputs

quot	a quotation

Outputs

alist

an array of key/value pairs

Definition

USING: assocs kernel ;

IN: sequences.extras

: map-zip-swap ( quot: ( x -- y ) -- alist )
    [ keep ] curry map>alist ; inline