regression/int-inf.compare.sml

   1 val l = [12345678901234567890,
   2          1234567890,
   3          1234,
   4          12,
   5          1,
   6          0,
   7          ~1,
   8          ~12,
   9          ~1234,
  10          ~1234567890,
  11          ~12345678901234567890]
  12
  13 val _ =
  14    List.app
  15    (fn i =>
  16     List.app
  17     (fn i' =>
  18      let
  19         val s =
  20            case IntInf.compare (i, i') of
  21               EQUAL => "equal"
  22             | GREATER => "greater"
  23             | LESS => "less"
  24      in
  25         print (concat [s, "\n"])
  26      end)
  27     l)
  28    l