19 lines
365 B
Plaintext
19 lines
365 B
Plaintext
Public Function Ackermann(m As Float, n As Float) As Float
|
|
If m = 0 Then
|
|
Return n + 1
|
|
End If
|
|
If n = 0 Then
|
|
Return Ackermann(m - 1, 1)
|
|
End If
|
|
Return Ackermann(m - 1, Ackermann(m, n - 1))
|
|
End
|
|
|
|
Public Sub Main()
|
|
Dim m, n As Float
|
|
For m = 0 To 3
|
|
For n = 0 To 4
|
|
Print "Ackermann("; m; ", "; n; ") = "; Ackermann(m, n)
|
|
Next
|
|
Next
|
|
End
|