Merge pull request #4 from azdavis/master

Add Standard ML
mtso · Oct 23, 2017 · c9b94a7 · c9b94a7
2 parents 215f260 + e837e3b
commit c9b94a7
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/standard-ml.sml b/standard-ml.sml
@@ -0,0 +1,10 @@
+fun add (x : int) (y : int) : int =
+  x + y
+
+fun each (xs : 'a list) (f : 'a -> 'b) : 'b list =
+  case xs of
+    [] => []
+  | x :: xs' => f x :: each xs' f
+
+val 3 = add 1 2
+val [2,3,4] = each [1,2,3] (fn x => x + 1)