Mutual recursion: Difference between revisions
Content added Content deleted
Line 3,152: | Line 3,152: | ||
<0,0,1,2,2,3,4,4,5,6,6,7,7,8,9,9,10,11,11,12>)</pre> |
<0,0,1,2,2,3,4,4,5,6,6,7,7,8,9,9,10,11,11,12>)</pre> |
||
=={{header|VBA}}== |
|||
<lang vb>Private Function F(ByVal n As Integer) As Integer |
|||
If n = 0 Then |
|||
F = 1 |
|||
Else |
|||
F = n - M(F(n - 1)) |
|||
End If |
|||
End Function |
|||
Private Function M(ByVal n As Integer) As Integer |
|||
If n = 0 Then |
|||
M = 0 |
|||
Else |
|||
M = n - F(M(n - 1)) |
|||
End If |
|||
End Function |
|||
Public Sub MR() |
|||
Dim i As Integer |
|||
For i = 0 To 20 |
|||
Debug.Print F(i); |
|||
Next i |
|||
Debug.Print |
|||
For i = 0 To 20 |
|||
Debug.Print M(i); |
|||
Next i |
|||
End Sub</lang>{{out}} |
|||
<pre> 1 1 2 2 3 3 4 5 5 6 6 7 8 8 9 9 10 11 11 12 13 |
|||
0 0 1 2 2 3 4 4 5 6 6 7 7 8 9 9 10 11 11 12 12 </pre> |
|||
=={{header|x86 Assembly}}== |
=={{header|x86 Assembly}}== |
||
{{works with|nasm}} |
{{works with|nasm}} |