blob: cf25036fe62bb6c43b64e7251c37be1e81563a56 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
<
{ .v -01 . } "#*" defmd
{ -- [ 0 ] } "#in" defmd
{ -- [ 0 ] } "#out" defmd
{ .v keys } "#dom" defmd
{ .v ==v =*f v keys { v -01 . f } each } "#each" defmd
{ < < { defv }' > ==v "#=[]" =* > }
> -- /map deffd
map ==m
0 "foo" m =[]
1 "bar" m =[]
2 "quux" m =[]
"foo" m * dump
"bar" m * dump
"quux" m * dump
m dom dump
m { dump } each
5 m mul ==mm
"foo" mm * dump
"bar" mm * dump
"quux" mm * dump
|
