Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Anonymous-recursion/M2000-Interpreter/anonymous-recursion-2.m2000
+++ b/Task/Anonymous-recursion/M2000-Interpreter/anonymous-recursion-2.m2000
@ -0,0 +1,11 @@
+Function fib(x) {
+      If x<0 then Error "argument outside of range"
+      If x<2 then =x : exit
+      Def fib1(x)=If(x>1->lambda(x-1)+lambda(x-2), x)
+      =fib1(x)
+}
+Module CheckIt (&k()) {
+      Print k(12)
+}
+CheckIt &Fib()
+Print fib(-2)  ' error