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}}==
Anonymous user