Anonymous user
Mutual recursion: Difference between revisions
add Tailspin solution
(add Tailspin solution) |
|||
Line 3,199:
}
println()</lang>
=={{header|Tailspin}}==
<lang tailspin>
templates male@{f:}
<=0> 0 !
<> def n: $;
$n - 1 -> male@{f: f} -> f@{m: male} -> $n - $ !
end male
templates female@{m:}
<=0> 1 !
<> def n: $;
$n - 1 -> female@{m: m} -> m@{f: female} -> $n - $ !
end female
0..10 -> 'M$;: $->male@{f:female}; F$;: $->female@{m:male};
' -> !OUT::write
</lang>
{{out}}
<pre>
M0: 0 F0: 1
M1: 0 F1: 1
M2: 1 F2: 2
M3: 2 F3: 2
M4: 2 F4: 3
M5: 3 F5: 3
M6: 4 F6: 4
M7: 4 F7: 5
M8: 5 F8: 5
M9: 6 F9: 6
M10: 6 F10: 6
</pre>
=={{header|Tcl}}==
| |||