Vocabulary
assocs

Inputs and outputs

seq	a sequence
quot	a quotation with stack effect ( ... elt -- ... key value )
exemplar	an assoc
assoc	a new assoc

Word description
Applies the quotation to each element of the sequence, and collects the keys and values into a new assoc having the same type as exemplar.

Definition

USING: arrays kernel sequences ;

IN: assocs

: map>assoc
( ... seq quot: ( ... elt -- ... key value ) exemplar -- ... assoc )
dup sequence?
[ [ [ 2array ] compose ] dip map-as ] [
[ over assoc-size ] dip new-assoc
[ [ swapd set-at ] curry compose each ] keep
] if ; inline