zip-as ( keys values exemplar -- assoc )
Factor handbook » The language » Collections » Associative mapping operations » Associative mapping conversions

Prev:	zip ( keys values -- alist )
Next:	zip-index ( values -- alist )

Vocabulary
assocs

Inputs

keys	a sequence
values	a sequence
exemplar	a sequence

Outputs

assoc

a sequence of key/value pairs of type exemplar

Word description
Combines two sequences pairwise into a single sequence of key/value pairs of type exemplar.

Examples

USING: prettyprint assocs ; { 1 2 3 } { 4 5 6 } V{ } zip-as .
V{ { 1 4 } { 2 5 } { 3 6 } }

USING: prettyprint assocs ; { 1 2 3 } { 4 5 6 } H{ } zip-as .
H{ { 1 4 } { 2 5 } { 3 6 } }

See also
unzip, zip, zip-index, zip-index-as, zip-with, zip-with-as

Definition

USING: arrays kernel sequences ;

IN: assocs

: zip-as ( keys values exemplar -- assoc )
    dup sequence?
    [ [ 2array ] swap 2map-as ] [
        [ 2dup min-length ] dip new-assoc
        [ [ [ swap ] ] dip [ set-at ] curry compose 2each ] keep
    ] if ; inline