Commit | Line | Data |
---|---|---|
7f918cf1 CE |
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 |