Data update
This commit is contained in:
parent
4bb20c9b71
commit
cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
5
Task/Ackermann-function/Emacs-Lisp/ackermann-function.el
Normal file
5
Task/Ackermann-function/Emacs-Lisp/ackermann-function.el
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
(defun ackermann (m n)
|
||||
(cond ((zerop m) (1+ n))
|
||||
((zerop n) (ackermann (1- m) 1))
|
||||
(t (ackermann (1- m)
|
||||
(ackermann m (1- n))))))
|
||||
Loading…
Add table
Add a link
Reference in a new issue