Mutual recursion: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added comments, added DO-END comment labels. -- ~~~~) |
(Added BBC BASIC) |
||
Line 253: | Line 253: | ||
END IF |
END IF |
||
END FUNCTION</lang> |
END FUNCTION</lang> |
||
=={{header|BBC BASIC}}== |
|||
<lang bbcbasic> @% = 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))</lang> |
|||
'''Output:''' |
|||
<pre> |
|||
F sequence: |
|||
1 1 2 2 3 3 4 5 5 6 6 7 8 8 9 9 10 11 11 12 13 |
|||
M sequence: |
|||
0 0 1 2 2 3 4 4 5 6 6 7 7 8 9 9 10 11 11 12 12 |
|||
</pre> |
|||
=={{header|Bc}}== |
=={{header|Bc}}== |