Mutual recursion: Difference between revisions
Made code Forth200x compliant
m (→{{header|REXX}}: added some comments. -- ~~~~) |
(Made code Forth200x compliant) |
||
Line 604:
: test ( xt n -- ) cr 0 do i over execute . loop drop ;
' m defer@ 20 test
' 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}}==
|