langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Integer-comparison/Standard-ML/integer-comparison-2.ml
+++ b/Task/Integer-comparison/Standard-ML/integer-comparison-2.ml
@ -0,0 +1,4 @@
+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"