10 lines
162 B
Text
10 lines
162 B
Text
cat mutual_recursion.bc:
|
|
define f(n) {
|
|
if ( n == 0 ) return(1);
|
|
return(n - m(f(n-1)));
|
|
}
|
|
|
|
define m(n) {
|
|
if ( n == 0 ) return(0);
|
|
return(n - f(m(n-1)));
|
|
}
|