Ackermann function

2024-11-14 15:49:37 -06:00 · 2024-11-14 15:49:37 -06:00 · 5fdd28fe0e
commit 5fdd28fe0e
parent 74f1fdc5ea
1 changed files with 9 additions and 0 deletions
--- a/demo/real.dee
+++ b/demo/real.dee
@ -8,3 +8,12 @@ fizzbuzz <- ->
  )

 fizzbuzz()
+
+print()
+
+ack <- m -> n ->
+  if m = 0 n + 1
+  elif n = 0 ack(m - 1, 1)
+  else ack(m - 1, ack(m, n - 1))
+
+print(ack(3, 4)) ## 125