Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Ackermann-function/BBC-BASIC/ackermann-function.basic
+++ b/Task/Ackermann-function/BBC-BASIC/ackermann-function.basic
@ -0,0 +1,7 @@
+      PRINT FNackermann(3, 7)
+      END
+
+      DEF FNackermann(M%, N%)
+      IF M% = 0 THEN = N% + 1
+      IF N% = 0 THEN = FNackermann(M% - 1, 1)
+      = FNackermann(M% - 1, FNackermann(M%, N%-1))