blob: 89bed822f3afe755bb755541b354a26d37af7f87 (
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
28
29
30
31
32
33
34
35
36
37
|
<
{ .v -01 . } "#*" defmd
{ [ 0 ] } "#in" deffd
{ [ 0 ] } "#out" deffd
{ .v keys } "#dom" defmd
{ .v ==v =*f v keys { v -01 . f } each } "#each" defmd
{ 0 } "#istart" deffd
{ .v keys len eq } "#iend" defmd
{ 1 add } "#istep" deffd
{ .v keys * } "#itrans" defmd
{ < < { defv }' > ==v "#=[]" =* > } _ "#iclone" deffd
> -- /map deffd
{ map } "(" deffd
{ } ")" deffd
{ -2102 =[] } "=>" deffd
(
0 =>foo
1 =>bar
2 =>quux
) ==m
{ _ ==m dom {
_ ": " cat -01 m * txt .produce .u cat dump
} each
} /mdump deffd
"foo" m * dump
"bar" m * dump
"quux" m * dump
m mdump
5 m add ==mm
mm mdump
|
