Mutual recursion: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added some comments. -- ~~~~) |
(Made code Forth200x compliant) |
||
| Line 604: | Line 604: | ||
: test ( xt n -- ) cr 0 do i over execute . loop drop ; |
: test ( xt n -- ) cr 0 do i over execute . loop drop ; |
||
' m 20 test |
' m defer@ 20 test \ 0 0 1 2 2 3 4 4 5 6 6 7 7 8 9 9 10 11 11 12 |
||
' f 20 test \ 1 1 2 2 3 3 4 5 5 6 6 7 8 8 9 9 10 11 11 12</lang> |
' f 20 test \ 1 1 2 2 3 3 4 5 5 6 6 7 8 8 9 9 10 11 11 12</lang> |
||
=={{header|Fortran}}== |
=={{header|Fortran}}== |
||