RosettaCodeData/Task/Ackermann-function/LFE/ackermann-function.lfe

5 lines
120 B
Plaintext

(defun ackermann
((0 n) (+ n 1))
((m 0) (ackermann (- m 1) 1))
((m n) (ackermann (- m 1) (ackermann m (- n 1)))))