regression/jump.sml

   1
   2 fun doit 2 = "zero"
   3   | doit 6 = "one"
   4   | doit 10 = "two"
   5   | doit 14 = "three"
   6   | doit 18 = "four"
   7   | doit 22 = "five"
   8   | doit 26 = "six"
   9   | doit 30 = "seven"
  10   | doit 34 = "eight"
  11   | doit 38 = "nine"
  12   | doit 42 = "ten"
  13   | doit _ = "big"
  14
  15 val l = List.tabulate(50,fn i => i)
  16
  17 val _ = List.app (fn i => print ((doit i) ^ "\n")) l