4 let val (rows
, cols
) = dimensions a
12 else (print(Int.toString(sub(a
, r
, c
))) ;
22 val a1
= array(4, 5, 13)
24 modifyi
RowMajor (fn (x
, y
, _
) => x
+ y
)
25 {base
= a1
, row
= 0, col
= 0, nrows
= NONE
, ncols
= NONE
};
28 val a2
= fromList
[[1, 2], [3, 4], [5, 6]]
31 fun bogus l
= (fromList l
; false) handle Size
=> true
33 val _
= (bogus
[[1], [2, 3]];
38 in tabulate
RowMajor (3, 3, fn _
=> (r
:= !r
+ 1 ; !r
))
44 in tabulate
ColMajor (3, 3, fn _
=> (r
:= !r
+ 1 ; !r
))