10 lines
186 B
Text
10 lines
186 B
Text
(deffunction ackerman
|
|
(?m ?n)
|
|
(if (= 0 ?m)
|
|
then (+ ?n 1)
|
|
else (if (= 0 ?n)
|
|
then (ackerman (- ?m 1) 1)
|
|
else (ackerman (- ?m 1) (ackerman ?m (- ?n 1)))
|
|
)
|
|
)
|
|
)
|