Mutual recursion: Difference between revisions

=={{header|RPL}}==

≪ IF DUP THEN DUP 1 - '''FEML MALE''' - ELSE DROP 1 END

≫ ''''FEML'''' STO ( n -- F(n) )

For M(n), here is a little variant, less readable but saving one word !

≪ IF THEN LAST DUP 1 - '''MALE FEML''' - ELSE 0 END

≫ ''''MALE'''' STO ( n -- M(n) )

{{in}}

<pre>

≪ {} 0 20 FOR n n MALE + NEXT ≫ EVAL

≪ {} 0 20 FOR n n FEML + NEXT ≫ EVAL

</pre>

{{out}}

<pre>

2: { 0 0 1 2 2 3 4 4 5 6 6 7 7 8 9 9 10 11 11 12 12 }

1: { 1 1 2 2 3 3 4 5 5 6 6 7 8 8 9 9 10 11 11 12 13 }

</pre>