Mutual recursion: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,296: / Line 3,296: @@
 =={{header|Tailspin}}==
 <lang tailspin>
-templates male&{f:}
+templates male
   when <=0> do 0 !
   otherwise def n: $;
-     $n - 1 -> male&{f: f} -> f&{m: male} -> $n - $ !
+     $n - 1 -> male -> female -> $n - $ !
 end male
-templates female&{m:}
+templates female
   when <=0> do 1 !
   otherwise def n: $;
-     $n - 1 -> female&{m: m} -> m&{f: female} -> $n - $ !
+     $n - 1 -> female -> male -> $n - $ !
 end female
-..10 -> 'M$;: $->male&{f:female}; F$;: $->female&{m:male};
+..10 -> 'M$;: $->male; F$;: $->female;
 ' -> !OUT::write
 </lang>