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

val v = Vector.tabulate (10,
   (fn x =>
      let
         fun toChar x = Char.chr (Char.ord #"0" + x)
      in
         (toChar 0, toChar x)
      end))
val x = Vector.sub (v, 8)
val _ = print "should be 08\n"
val _ = print (str (#1 x) ^ str (#2 x) ^ "\n")
Commit	Line	Data
7f918cf1 CE	1	val v = Vector.tabulate (10,
	2	(fn x =>
	3	let
	4	fun toChar x = Char.chr (Char.ord #"0" + x)
	5	in
	6	(toChar 0, toChar x)
	7	end))
	8	val x = Vector.sub (v, 8)
	9	val _ = print "should be 08\n"
	10	val _ = print (str (#1 x) ^ str (#2 x) ^ "\n")