September Morn Update

Task/Mutual-recursion/BASIC/mutual-recursion-2.basic

@@ -0,0 +1,16 @@
+      @% = 3 : REM Column width
+      PRINT "F sequence:"
+      FOR i% = 0 TO 20
+        PRINT FNf(i%) ;
+      NEXT
+      PRINT
+      PRINT "M sequence:"
+      FOR i% = 0 TO 20
+        PRINT FNm(i%) ;
+      NEXT
+      PRINT
+      END
+
+      DEF FNf(n%) IF n% = 0 THEN = 1 ELSE = n% - FNm(FNf(n% - 1))
+
+      DEF FNm(n%) IF n% = 0 THEN = 0 ELSE = n% - FNf(FNm(n% - 1))

Task/Mutual-recursion/BASIC/mutual-recursion-3.basic

@@ -0,0 +1,23 @@
+100 PROGRAM "Hofstad.bas"
+110 PRINT "F sequence:"
+120 FOR I=0 TO 20
+130   PRINT F(I);
+140 NEXT
+150 PRINT :PRINT "M sequence:"
+160 FOR I=0 TO 20
+170   PRINT M(I);
+180 NEXT
+190 DEF F(N)
+200   IF N=0 THEN
+210     LET F=1
+220   ELSE
+230     LET F=N-M(F(N-1))
+240   END IF
+250 END DEF
+260 DEF M(N)
+270   IF N=0 THEN
+280     LET M=0
+290   ELSE
+300     LET M=N-F(M(N-1))
+310   END IF
+320 END DEF