Mutual recursion: Difference between revisions

Content added Content deleted
(→‎{{header|TXR}}: Replace obsolete approach with modern TXR.)
(Updated D entry)
Line 502:
<lang d>import std.stdio, std.algorithm, std.range;
 
/*auto*/ int male(in int n) pure nothrow {
return n ? (n - female(male(n - 1))).female : 0;
}
 
/*auto*/ int female(in int n) pure nothrow {
return n ? (n - male(female(n - 1))).male : 1;
}
 
void main() {
iota(20).iota.map!female().writeln();
iota(20).iota.map!male().writeln();
}</lang>
{{out}}
Retrieved from "https://rosettacode.org/wiki/Mutual_recursion"