Commit | Line | Data |
---|---|---|
7f918cf1 CE |
1 | val n = 20 |
2 | ||
3 | val a = Array.tabulate (n, fn _ => (Array.array (1, 0), | |
4 | Array.array (1, 1))) | |
5 | ||
6 | val (a1, a2) = Array.sub (a, 13) | |
7 | ||
8 | val _ = Array.update (a1, 0, 2) | |
9 | val _ = Array.update (a2, 0, 3) | |
10 | ||
11 | val _ = | |
12 | print (concat [Int.toString (Array.sub (#1 (Array.sub (a, 12)), 0)), " ", | |
13 | Int.toString (Array.sub (#2 (Array.sub (a, 13)), 0)), "\n"]) | |
14 |