Guest User

Untitled

a guest
Jul 23rd, 2018
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.17 KB | None | 0 0
  1. (defun ackermann (m n)
  2. (if (= m 0)
  3. (+ n 1))
  4. (if (and (> m 0) (= n 0))
  5. (ackermann (- m 1) 1))
  6. (if (and (> m 0) (> n 0))
  7. (ackermann (- m 1) (ackermann m (- n 1)))))
Add Comment
Please, Sign In to add comment