Разное

Люди!!! Пожалуйста помогите найти код финкции Аккермана на делфи. Очень нужно. Перелистал куча сайтов, ничего толком не нашёл. Заранее спасибо.

функция Аккермана Ack(m, n) определяется для целых m?0, n?0 условиями:

Ack(0, n) = n+1,

Ack(m, 0) = Ack(m-1,1) при m > 0,

Ack(m, n) = Ack(m-1, Ack(m,n-1)) при m, n > 0.

http://www.geocities.com/hjsmithh/Ackerman/Acker1P.html

Private Function ackerman(ByVal m As Long, ByVal n As Long)         If m = 0 Then             Return n + 1         ElseIf n = 0 Then             Return ackerman(m - 1, 1)         Else             Return ackerman(m - 1, ackerman(m, n - 1))         End If     End Function

Большое Вам спасибо!