September 2017 Update

Task/Currying/Hy/currying-1.hy

@@ -0,0 +1,3 @@
+(defn addN [n]
+  (fn [x]
+    (+ x n)))

Task/Currying/Hy/currying-2.hy

@@ -0,0 +1,6 @@
+=> (setv add2 (addN 2))
+=> (add2 7)
+9
+
+=> ((addN 3) 4)
+7

Task/Currying/Hy/currying-3.hy

@@ -0,0 +1,13 @@
+procedure main(A)
+    add2 := addN(2)
+    write("add2(7) = ",add2(7))
+    write("add2(1) = ",add2(1))
+end
+
+procedure addN(n)
+    return makeProc{ repeat { (x := (x@&source)[1], x +:= n) } }
+end
+
+procedure makeProc(A)
+    return (@A[1], A[1])
+end