|
|
1.1 misha 1: @main[]
2: $a1[
3: $.1[a1]
4: $.2[a2]
5: ]
6:
7: $a2[$a1]
8: $a3[^hash::create[$a1]]
9: $a4[^hash::create[
10: $.3[a3]
11: $.4[a4]
12: ]]
13:
14: ^print[$a1]
15: ^print[$a2]
16: ^print[$a3]
17:
18:
19: ^a1.add[$a4]
20: ^print[$a1]
21: # $a2 changed, because it just contains link to $a1
22: ^print[$a2]
23: ^print[$a3]
24:
25: @print[h][t;k;v]
26: $t[^table::create{key value
27: ^h.foreach[k;v]{$k $v}[^#0A]
28: }]
29: ^t.sort{$t.key}
30: ^t.menu{$t.key='$t.value'}[, ]<br />