September 2017 Update

Task/Mutual-recursion/BaCon/mutual-recursion.bacon

@@ -0,0 +1,21 @@
+' Mutually recursive
+FUNCTION F(int n) TYPE int
+    RETURN IIF(n = 0, 1, n - M(F(n -1)))
+END FUNCTION
+
+FUNCTION M(int n) TYPE int
+    RETURN IIF(n = 0, 0, n - F(M(n - 1)))
+END FUNCTION
+
+' Get iteration limit, default 20
+SPLIT ARGUMENT$ BY " " TO arg$ SIZE args
+limit = IIF(args > 1, VAL(arg$[1]), 20)
+
+FOR i = 0 TO limit
+    PRINT F(i) FORMAT "%2d "
+NEXT
+PRINT
+FOR i = 0 TO limit
+    PRINT M(i) FORMAT "%2d "
+NEXT
+PRINT