|
|
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:
29:
30: @create[jCode]
31: $result[$jCode]
32:
33:
34:
1.2 ! misha 35: @print[h][t]
! 36: $t[^h._keys[]]
! 37: ^t.sort{$t.key}
! 38: ^t.menu{$t.key=$h.[$t.key]}[, ]<br />