1 val a
= Array
.tabulate (100, fn i
=> (i
, real i
))
3 val _
= Array
.update (a
, 0, (1, 100.0))
5 val i
= #
1 (Array
.sub (a
, 0)) + #
1 (Array
.sub (a
, 1))
7 val x
= #
2 (Array
.sub (a
, 0)) + #
2 (Array
.sub (a
, 1))
9 val () = print (concat
[Int.toString i
, " ", Real.toString x
, "\n"])