Anonymous user
Mutual recursion: Difference between revisions
Added PicoLisp
(→{{header|x86 assembly}}: Rename section for caps) |
(Added PicoLisp) |
||
Line 872:
echo implode(" ", $rb) . "\n";
?></lang>
=={{header|PicoLisp}}==
<lang PicoLisp>(de f (N)
(if (=0 N)
1
(- N (m (f (dec N)))) ) )
(de m (N)
(if (=0 N)
0
(- N (f (m (dec N)))) ) )</lang>
=={{header|Prolog}}==
|