regression/int-inf.5.sml

   1 open IntInf MLton.IntInf
   2
   3 fun p (a, b) = (print (toString (gcd (a, b)))
   4                 ; print "\n")
   5
   6 val _ = List.app p [(1000, 205),
   7                     (1000000000000, 205),
   8                     (100000000000000000000, 500000000),
   9                     (100000000000000000000, 500000001)]