Data commit

Task/Currying/Nemerle/currying.nemerle

@@ -0,0 +1,20 @@
+using System;
+using System.Console;
+
+module Curry
+{
+    Curry[T, U, R](f : T * U -> R) : T -> U -> R
+    {
+        fun (x) { fun (y) { f(x, y) } }
+    }
+
+    Main() : void
+    {
+        def f(x, y) { x + y }
+	def g = Curry(f);
+	def h = Curry(f)(12);              // partial application
+	WriteLine($"$(Curry(f)(20)(22))");
+	WriteLine($"$(g(21)(21))");
+	WriteLine($"$(h(30))")
+    }
+}