Data update

Task/Anonymous-recursion/Chipmunk-Basic/anonymous-recursion.basic

@@ -0,0 +1,10 @@
+100 cls
+110 sub fib(num)
+120   if num < 0 then print "Invalid argument: "; : fib = num
+130   if num < 2 then fib = num else fib = fib(num-1)+fib(num-2)
+140 end sub
+190 print fib(20)
+200 print fib(30)
+210 print fib(-10)
+220 print fib(10)
+230 end

Task/Anonymous-recursion/IS-BASIC/anonymous-recursion.basic

@@ -1,16 +1,14 @@
 100 PROGRAM "Fibonacc.bas"
-110 FOR I=0 TO 10
-120   PRINT FIB(I);
-130 NEXT
-140 DEF FIB(K)
-150   SELECT CASE K
-160   CASE IS<0
-170     PRINT "Negative parameter to Fibonacci.":STOP
-180   CASE 0
-190     LET FIB=0
-200   CASE 1
-210     LET FIB=1
-220   CASE ELSE
-230     LET FIB=FIB(K-1)+FIB(K-2)
-240   END SELECT
-250 END DEF
+  110 FOR I=0 TO 10
+  120   PRINT FIB(I);
+  130 NEXT
+  140 DEF FIB(K)
+  150   SELECT CASE K
+  160   CASE IS<0
+  170     PRINT "Negative parameter to Fibonacci.":STOP
+  180   CASE 0,1
+  190     LET FIB=K
+  200   CASE ELSE
+  210     LET FIB=FIB(K-1)+FIB(K-2)
+  220   END SELECT
+  230 END DEF