Mutual recursion: Difference between revisions

no edit summary
No edit summary
No edit summary
Line 504:
 
=={{header|Arturo}}==
<lang arturorebol>f: @($[n)->][ if? n=0 {-> 1} {else -> n-[m| f n-1] }]
m: @($[n)->][ if? n=0 {-> 0} {else -> n-[f| m n-1] }]
loop 0..1020 {'i [
print ["f("+&+ i ")= " + [f &i]
print ["m("+&+ i ")= " + [m &i] + "\n"
print ""
]</lang>
 
{{out}}
<lang arturo>f: @(n)-> if n=0 {1} { n-[m|f n-1] }
m: @(n)-> if n=0 {0} { n-[f|m n-1] }
 
<pre>f( 0 )= 1
loop 0..10 {
m( 0 )= 0
print "f("+&+")= " + [f &]
print "m("+&+")= " + [m &] + "\n"
}
</lang>
 
f( 1 )= 1
{{out}}
m( 1 )= 0
 
f( 2 )= 2
m( 2 )= 1
 
f( 3 )= 2
m( 3 )= 2
 
f( 4 )= 3
m( 4 )= 2
 
f( 5 )= 3
m( 5 )= 3
 
f( 6 )= 4
m( 6 )= 4
 
f( 7 )= 5
m( 7 )= 4
 
f( 8 )= 5
m( 8 )= 5
 
<pre>f(0 9 )= 16
m(0 9 )= 06
 
f(1 10 )= 16
m(1 10 )= 06
 
f(2 11 )= 27
m(2 11 )= 17
 
f(3 12 )= 28
m(3 12 )= 27
 
f(4 13 )= 38
m(4 13 )= 28
 
f(5 14 )= 39
m(5 14 )= 39
 
f(6 15 )= 49
m(6 15 )= 49
 
f(7 16 )= 510
m(7 16 )= 410
 
f(8 17 )= 511
m(8 17 )= 511
 
f(9 18 )= 611
m(9 18 )= 611
 
f(10 19 )= 612
m(10 19 )= 612
 
f( 20 )= 13
</pre>
m( 20 )= 12</pre>
 
=={{header|AutoHotkey}}==
1,532

edits