|
|
1.1 misha 1: @main[]
2: $h[
3: $i(0)
4: $.[i$i][$i]
5: ^i.inc[] ^rem{allow such calls}
6: $.[i$i][$i]
7: ]
8: ^print[$h]
9:
10:
11: $j(0)
12: $h[
13: $.[j$j][$j]
14: ^j.inc[] ^rem{allow such calls}
15: $.[j$j][$j]
16: ]
17: ^print[$h]
18:
19:
20: $h[^create{
21: ^for[k](1;5){
22: $.[k$k][$k]
23: $.[k$k][$k]
24: }
25: }]
26: ^print[$h]
27:
28: @create[jCode]
29: $result[$jCode]
30:
1.2 misha 31: @print[h][t]
32: $t[^h._keys[]]
33: ^t.sort{$t.key}
34: ^t.menu{$t.key=$h.[$t.key]}[, ]<br />