5 lines
120 B
Text
5 lines
120 B
Text
|
(defun ackermann
|
||
|
|
((0 n) (+ n 1))
|
||
|
|
((m 0) (ackermann (- m 1) 1))
|
||
|
|
((m n) (ackermann (- m 1) (ackermann m (- n 1)))))
|