Add tasks for all the new languages

Task/Man-or-boy-test/Crystal/man-or-boy-test.crystal

@@ -0,0 +1,7 @@
+def a(k, x1, x2, x3, x4, x5)
+  b = uninitialized -> typeof(k)
+  b = ->() { k -= 1; a(k, b, x1, x2, x3, x4) }
+  k <= 0 ? x4.call + x5.call : b.call
+end
+
+puts a(10, -> {1}, -> {-1}, -> {-1}, -> {1}, -> {0})

Task/Man-or-boy-test/EchoLisp/man-or-boy-test.echolisp

@@ -0,0 +1,16 @@
+;; copied from Scheme
+(define (A k x1 x2 x3 x4 x5)
+  (define (B)
+    (set! k (- k 1))
+    (A k B x1 x2 x3 x4))
+  (if (<= k 0)
+      (+ (x4) (x5))
+      (B)))
+
+(A 10 (lambda () 1) (lambda () -1) (lambda () -1) (lambda () 1) (lambda () 0))
+   → -67
+(A 13 (lambda () 1) (lambda () -1) (lambda () -1) (lambda () 1) (lambda () 0))
+   → -642
+(A 14 ..)
+❗ InternalError : too much recursion - JS internal error (please, report it)-
+   → stack overflow using FireFox

Task/Man-or-boy-test/Nim/man-or-boy-test.nim

@@ -0,0 +1,11 @@
+import future
+
+proc a(k: int; x1, x2, x3, x4, x5: proc(): int): int =
+  var k = k
+  proc b(): int =
+    dec k
+    a(k, b, x1, x2, x3, x4)
+  if k <= 0: x4() + x5()
+  else: b()
+
+echo a(10, () => 1, () => -1, () => -1, () => 1, () => 0)

Task/Man-or-boy-test/Sidef/man-or-boy-test-1.sidef

@@ -0,0 +1,5 @@
+func a(k, x1, x2, x3, x4, x5) {
+    func b { a(--k, b, x1, x2, x3, x4) };
+    k <= 0 ? (x4() + x5()) : b();
+}
+say a(10, ->{1}, ->{-1}, ->{-1}, ->{1}, ->{0});      #=> -67

Task/Man-or-boy-test/Sidef/man-or-boy-test-2.sidef

@@ -0,0 +1,5 @@
+func a(k, x1, x2, x3, x4, x5) {
+    k <= 0 ? (x4() + x5())
+           : func b { a(--k, b, x1, x2, x3, x4) }();
+}
+say a(10, ->{1}, ->{-1}, ->{-1}, ->{1}, ->{0});      #=> -67

Task/Man-or-boy-test/Sidef/man-or-boy-test-3.sidef

@@ -0,0 +1,9 @@
+class MOB {
+    method a(k, x1, x2, x3, x4, x5) {
+        func b { self.a(--k, b, x1, x2, x3, x4) };
+        k <= 0 ? (x4() + x5()) : b();
+    }
+}
+
+var obj = MOB();
+say obj.a(10, ->{1}, ->{-1}, ->{-1}, ->{1}, ->{0});

Task/Man-or-boy-test/Sparkling/man-or-boy-test.sparkling

@@ -0,0 +1,16 @@
+function a(k, x1, x2, x3, x4, x5) {
+	let kk = { "k": k.k };
+	let b = function b() {
+		kk.k--;
+		return a(kk, b, x1, x2, x3, x4);
+	};
+	return kk.k <= 0 ? x4() + x5() : b();
+}
+
+function x(n) {
+	return function () {
+		return n;
+	};
+}
+
+print(a({ "k": 10 }, x(1), x(-1), x(-1), x(1), x(0)));

Task/Man-or-boy-test/Swift/man-or-boy-test-1.swift

@@ -0,0 +1,14 @@
+func A(k: Int, _ x1: () -> Int, _ x2: () -> Int, _ x3: () -> Int, _ x4: () -> Int, _ x5: () -> Int) -> Int {
+    var k1 = k
+    func B() -> Int {
+        k1-=1
+        return A(k1, B, x1, x2, x3, x4)
+    }
+    if k1 <= 0 {
+        return x4() + x5()
+    } else {
+        return B()
+    }
+}
+
+print(A(10, {1}, {-1}, {-1}, {1}, {0}))

Task/Man-or-boy-test/Swift/man-or-boy-test-2.swift

@@ -0,0 +1,14 @@
+func A(var k: Int, x1: () -> Int, x2: () -> Int, x3: () -> Int, x4: () -> Int, x5: () -> Int) -> Int {
+  var B: (() -> Int)!
+  B = {
+    k--
+    return A(k, B, x1, x2, x3, x4)
+  }
+  if k <= 0 {
+    return x4() + x5()
+  } else {
+    return B()
+  }
+}
+
+println(A(10, {1}, {-1}, {-1}, {1}, {0}))