Mutual recursion: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: reduced the font size for an output section.) |
m (→{{header|Tailspin}}: syntax update) |
||
Line 3,296: | Line 3,296: | ||
=={{header|Tailspin}}== |
=={{header|Tailspin}}== |
||
<lang tailspin> |
<lang tailspin> |
||
templates male |
templates male&{f:} |
||
<=0> 0 ! |
when <=0> do 0 ! |
||
otherwise def n: $; |
|||
$n - 1 -> male |
$n - 1 -> male&{f: f} -> f&{m: male} -> $n - $ ! |
||
end male |
end male |
||
templates female |
templates female&{m:} |
||
<=0> 1 ! |
when <=0> do 1 ! |
||
otherwise def n: $; |
|||
$n - 1 -> female |
$n - 1 -> female&{m: m} -> m&{f: female} -> $n - $ ! |
||
end female |
end female |
||
0..10 -> 'M$;: $->male |
0..10 -> 'M$;: $->male&{f:female}; F$;: $->female&{m:male}; |
||
' -> !OUT::write |
' -> !OUT::write |
||
</lang> |
</lang> |