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