regression/pack-real.2.sml

   1
   2 val v =
   3    Word8Vector.fromList
   4    [0wx0D,0wxE5,0wx35,0wx94,0wxD7,0wx00,0wx82,0wx40,
   5     0wx0D,0wxE5,0wx35,0wx94,0wxD7,0wx00,0wx82,0wx40]
   6
   7 val r = PackReal64Little.subVec(v, 0)
   8 val () = print (concat [Real64.toString r, "\n"])
   9 val r = PackReal64Little.subVec(v, 1)
  10 val () = print (concat [Real64.toString r, "\n"])
  11
  12 val r = PackReal64Big.subVec(v, 0)
  13 val () = print (concat [Real64.toString r, "\n"])
  14 val r = PackReal64Big.subVec(v, 1)
  15 val () = print (concat [Real64.toString r, "\n"])