Mutual recursion: Difference between revisions
Content added Content deleted
m (→{{header|Déjà Vu}}: Updates example) |
(→{{header|TXR}}: Replace obsolete approach with modern TXR.) |
||
Line 2,096:
=={{header|TXR}}==
=={{trans|Racket}}==
<lang txr>@(
@ n1▼
@ (bind n "0")▼
(defun m (n)
<pre>$ txr hofs-male-female.txr▼
(- n (f (m (- n 1))))))
(each ((n (range 0 15)))
(format t "f(~s) = ~s; m(~s) = ~s\n" n (f n) n (m n))))</lang>
f(0) = 1; m(0) = 0
f(1) = 1; m(1) = 0
|