Initial data commit

Task/Anonymous-recursion/Forth/anonymous-recursion-1.fth

@@ -0,0 +1,7 @@
+:noname ( n -- n' )
+  dup 2 < ?exit
+  1- dup recurse swap 1- recurse + ; ( xt )
+
+: fib ( +n -- n' )
+  dup 0< abort" Negative numbers don't exist."
+  [ ( xt from the :NONAME above ) compile, ] ;

Task/Anonymous-recursion/Forth/anonymous-recursion-2.fth

@@ -0,0 +1,5 @@
+( xt from :noname in the previous example )
+variable pocket  pocket !
+: fib ( +n -- n' )
+  dup 0< abort" Negative numbers don't exist."
+  [ pocket @ compile, ] ;

Task/Anonymous-recursion/Forth/anonymous-recursion-3.fth

@@ -0,0 +1,3 @@
+: fib ( +n -- )
+	dup 0< abort" Negative numbers don't exist"
+	[: dup 2 < ?exit  1- dup MYSELF swap 1- MYSELF + ;] execute . ;