Data update

Task/Ackermann-function/Acornsoft-Lisp/ackermann-function.lisp

@@ -0,0 +1,4 @@
+(defun ack (m n)
+  (cond ((zerop m) (add1 n))
+        ((zerop n) (ack (sub1 m) 1))
+        (t         (ack (sub1 m) (ack m (sub1 n))))))

Task/Ackermann-function/EasyLang/ackermann-function.easy

@@ -1,12 +1,10 @@
-proc ackerm m n . r .
-  if m = 0
-    r = n + 1
-  elif n = 0
-    call ackerm m - 1 1 r
-  else
-    call ackerm m n - 1 h
-    call ackerm m - 1 h r
-  .
+func ackerm m n .
+   if m = 0
+      return n + 1
+   elif n = 0
+      return ackerm (m - 1) 1
+   else
+      return ackerm (m - 1) ackerm m (n - 1)
+   .
 .
-call ackerm 3 6 r
-print r
+print ackerm 3 6