A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Ackermann-function/Genyris/ackermann-function.genyris
+++ b/Task/Ackermann-function/Genyris/ackermann-function.genyris
@ -0,0 +1,9 @@
+def A (m n)
+   cond
+      (equal? m 0)
+          + n 1
+      (equal? n 0)
+          A (- m 1) 1
+      else
+          A (- m 1)
+             A m (- n 1)