sequences.extras: add map-keys, map-values.
parent
7ced47a6b1
commit
7f3adf3fb1
|
@ -610,3 +610,9 @@ PRIVATE>
|
|||
|
||||
: map-zip ( quot: ( x -- y ) -- alist )
|
||||
'[ _ keep swap ] map>alist ; inline
|
||||
|
||||
: map-keys ( assoc quot: ( key -- key' ) -- assoc )
|
||||
'[ _ dip ] assoc-map ; inline
|
||||
|
||||
: map-values ( assoc quot: ( value -- value' ) -- assoc )
|
||||
'[ swap _ dip swap ] assoc-map ; inline
|
Loading…
Reference in New Issue