[hcoop/debian/mlton.git] / regression / flat-array.3.sml

val a = Array.tabulate (100, fn i => (i, real i))

val _ = Array.update (a, 0, (1, 100.0))

val i = #1 (Array.sub (a, 0)) + #1 (Array.sub (a, 1))

val x = #2 (Array.sub (a, 0)) + #2 (Array.sub (a, 1))

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