new tasks

2013-04-09 00:46:50 -07:00 · 2013-04-09 00:46:50 -07:00 · 80737d5a6a
commit 80737d5a6a
parent 2a4d27cea0
1194 changed files with 15353 additions and 1 deletions
--- a/Task/Ackermann_function/Babel/ackermann_function.pb
+++ b/Task/Ackermann_function/Babel/ackermann_function.pb
@ -0,0 +1,53 @@
+main:
+        {((0 0) (0 1) (0 2)
+        (0 3) (0 4) (1 0)
+        (1 1) (1 2) (1 3)
+        (1 4) (2 0) (2 1)
+        (2 2) (2 3) (3 0)
+        (3 1) (3 2) (4 0))
+
+        { dup
+        "A(" << { %d " " . << } ... ") = " <<
+    reverse give
+    ack
+    %d cr << } ... }
+
+ack!:
+    { dup zero?
+        { <-> dup zero?
+            { <->
+                cp
+                1 -
+                <- <- 1 - ->
+                ack ->
+                ack }
+            { <->
+                1 -
+                <- 1 ->
+                ack }
+        if }
+        { zap 1 + }
+    if }
+
+zero?!: { 0 = }
+
+Output:
+
+A(0 0 ) = 1
+A(0 1 ) = 2
+A(0 2 ) = 3
+A(0 3 ) = 4
+A(0 4 ) = 5
+A(1 0 ) = 2
+A(1 1 ) = 3
+A(1 2 ) = 4
+A(1 3 ) = 5
+A(1 4 ) = 6
+A(2 0 ) = 3
+A(2 1 ) = 5
+A(2 2 ) = 7
+A(2 3 ) = 9
+A(3 0 ) = 5
+A(3 1 ) = 13
+A(3 2 ) = 29
+A(4 0 ) = 13