Data commit

Task/Ackermann-function/Processing.R/ackermann-function.processing-r

@@ -0,0 +1,18 @@
+setup <- function() {
+  for (m in 0:3) {
+    for (n in 0:4) {
+      stdout$print(paste(ackermann(m, n), " "))
+    }
+    stdout$println("")
+  }
+}
+
+ackermann <- function(m, n) {
+  if ( m == 0 ) {
+    return(n+1)
+  } else if ( n == 0 ) {
+    ackermann(m-1, 1)
+  } else {
+    ackermann(m-1, ackermann(m, n-1))
+  }
+}