Mutual recursion: Difference between revisions

=={{header|FOCAL}}==

<lang FOCAL>01.01 C--PRINT F(0..15) AND M(0..15)

01.10 T "F(0..15)"

01.20 F X=0,15;S N=X;D 4;T %1,N

01.30 T !"M(0..15)"

01.40 F X=0,15;S N=X;D 5;T %1,N

01.50 T !

01.60 Q

04.01 C--N = F(N)

04.10 I (N(D)),4.11,4.2

04.11 S N(D)=1;R

04.20 S D=D+1;S N(D)=N(D-1)-1;D 4;D 5

04.30 S D=D-1;S N(D)=N(D)-N(D+1)

05.01 C--N = M(N)

05.10 I (N(D)),5.11,5.2

05.11 R

05.20 S D=D+1;S N(D)=N(D-1)-1;D 5;D 4

05.30 S D=D-1;S N(D)=N(D)-N(D+1)</lang>

{{out}}

<pre>F(0..15)= 1= 1= 2= 2= 3= 3= 4= 5= 5= 6= 6= 7= 8= 8= 9= 9

M(0..15)= 0= 0= 1= 2= 2= 3= 4= 4= 5= 6= 6= 7= 7= 8= 9= 9</pre>