RosettaCodeData/Task/Integer-comparison/Standard-ML/integer-comparison-2.ml

5 lines
191 B
OCaml
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
fun myCompare (a, b) = case Int.compare (a, b) of
LESS => "A is less than B"
| GREATER => "A is greater than B"
| EQUAL => "A equals B"