Another update from ingydotnet^djgoku

Task/Currying/Clojure/currying.clj

@@ -0,0 +1,4 @@
+(def plus-a-hundred (partial + 100))
+(assert (=
+           (plus-a-hundred 1)
+           101))

Task/Currying/JavaScript/currying-2.js

@@ -0,0 +1 @@
+(a,b) => expr_using_a_and_b

Task/Currying/JavaScript/currying-3.js

@@ -0,0 +1 @@
+a => b => expr_using_a_and_b

Task/Currying/JavaScript/currying-4.js

@@ -0,0 +1,23 @@
+let
+  fix = // This is a variant of the Applicative order Y combinator
+    f => (f => f(f))(g => f((...a) => g(g)(...a))),
+  curry =
+    f => (
+      fix(
+        z => (n,...a) => (
+          n>0
+          ?b => z(n-1,...a,b)
+          :f(...a)))
+      (f.length)),
+  curryrest =
+    f => (
+      fix(
+        z => (n,...a) => (
+          n>0
+          ?b => z(n-1,...a,b)
+          :(...b) => f(...a,...b)))
+      (f.length)),
+  curriedmax=curry(Math.max),
+  curryrestedmax=curryrest(Math.max);
+print(curriedmax(8)(4),curryrestedmax(8)(4)(),curryrestedmax(8)(4)(9,7,2));
+// 8,8,9

Task/Currying/Logtalk/currying.logtalk

@@ -0,0 +1,3 @@
+| ?- logtalk << call([Z]>>(call([X,Y]>>(Y is X*X), 5, R), Z is R*R), T).
+T = 625
+yes

Task/Currying/Scala/currying.scala

@@ -0,0 +1,3 @@
+def add(a: Int)(b: Int) = a + b
+val add5 = add(5) _
+add5(2)