Question

Write in LISP,

Write a function named ackermann that takes two integers. Use the following function definition: (Note: due to this function’s complexity it may not finish for inputs larger than 3)

?(?,?) = {
? + 1                             ?? ? = 0

?(? − 1,1)                   ?? ? = 0

?(? − 1,?(?,? − 1))   ??ℎ??????

Sample:

(print (ackermann 1 1)))

Sample output:

3

Answer 1

(defun ackermann (x y)
(cond ((= x 0) (+ y 1))
(t (cond ((= y 0) (ackermann (- x 1) 1))
(t (ackermann (- x 1) (ackermann x (- y 1))))
))
))

(print(ackermann 1 1 ))

========================================
SEE OUTPUT



Thanks