Data commit

Task/Mutual-recursion/AutoHotkey/mutual-recursion-1.ahk

@@ -0,0 +1,11 @@
+Loop 20
+   i := A_Index-1, t .= "`n" i "`t   " M(i) "`t     " F(i)
+MsgBox x`tmale`tfemale`n%t%
+
+F(n) {
+   Return n ? n - M(F(n-1)) : 1
+}
+
+M(n) {
+   Return n ? n - F(M(n-1)) : 0
+}

Task/Mutual-recursion/AutoHotkey/mutual-recursion-2.ahk

@@ -0,0 +1,31 @@
+main()
+Return
+
+F(n)
+{
+  If (n == 0)
+    Return 1
+  Else
+    Return n - M(F(n-1))
+}
+
+M(n)
+{
+  If (n == 0)
+    Return 0
+  Else
+    Return n - F(M(n-1)) ;
+}
+
+main()
+{
+  i = 0
+  While, i < 20
+  {
+    male .= M(i) . "`n"
+    female .= F(i) . "`n"
+    i++
+  }
+  MsgBox % "male:`n" . male
+  MsgBox % "female:`n" . female
+}