Data commit

Task/Mutual-recursion/Objeck/mutual-recursion.objeck

@@ -0,0 +1,19 @@
+class MutualRecursion {
+  function : Main(args : String[]) ~ Nil {
+    for(i := 0; i < 20; i+=1;) {
+      f(i)->PrintLine();
+    };
+    "---"->PrintLine();
+    for (i := 0; i < 20; i+=1;) {
+      m(i)->PrintLine();
+    };
+  }
+
+  function : f(n : Int) ~ Int {
+    return n = 0 ? 1 : n - m(f(n - 1));
+  }
+
+  function : m(n : Int) ~ Int {
+    return n = 0 ? 0 : n - f(m(n - 1));
+  }
+}