Mutual recursion: Difference between revisions
Content added Content deleted
(add Tailspin solution) |
|||
Line 3,199: | Line 3,199: | ||
} |
} |
||
println()</lang> |
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}}== |
=={{header|Tcl}}== |