Anonymous user
Mutual recursion: Difference between revisions
no edit summary
(FALSE) |
No edit summary |
||
Line 250:
}</lang>
=={{header|Common Lisp}}==
<lang lisp>(defun m (n)
(if (zerop n)
0
(- n (f (m (- n 1))))))
(defun f (n)
(if (zerop n)
1
(- n (m (f (- n 1))))))
</lang>
=={{header|D}}==
Line 270 ⟶ 282:
}
</lang>
=={{header|E}}==
| |||