Mutual recursion: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,435: / Line 1,435: @@
 =={{header|REXX}}==
-<lang rexx>
+<lang rexx>/*REXX program to show mutual recursion. */
+arg limit .;  if limit='' then limit=40
-/*REXX program to show mutual recursion.  */
+  do j=0 to limit
+  say 'F('right(j,2)")="right(F(j),9) '     M('right(j,2)")="right(M(j),9)
-arg limit .
+  end
-if limit='' then limit=40
- do j=0 to limit
- say 'F('right(j,2)")="right(F(j),9) '     M('right(j,2)")="right(M(j),9)
- end
 exit
+/*─────────────────────────────────────F  &  M  subroutines─────────────*/
 F: procedure; parse arg n; if n==0 then return 1; return n-M(F(n-1))
-M: procedure; parse arg n; if n==0 then return 0; return n-F(M(n-1))
+M: procedure; parse arg n; if n==0 then return 0; return n-F(M(n-1))</lang>
+'''output'' (using the default of 40):
-</lang>
-Output (using the default of 40):
 <pre style="height:30ex;overflow:scroll">
 F( 0)=        1      M( 0)=        0