Data commit

Task/Catalan-numbers/Smart-BASIC/catalan-numbers.basic

@@ -0,0 +1,30 @@
+PRINT "Recursive:"!PRINT
+FOR n = 0 TO 15
+    PRINT n,"#######":catrec(n)
+NEXT n
+PRINT!PRINT
+
+PRINT "Non-recursive:"!PRINT
+FOR n = 0 TO 15
+    PRINT n,"#######":catnonrec(n)
+NEXT n
+
+END
+
+DEF catrec(x)
+    IF x = 0 THEN
+        temp = 1
+    ELSE
+        n = x
+        temp = ((2*((2*n)-1))/(n+1))*catrec(n-1)
+    END IF
+    catrec = temp
+END DEF
+
+DEF catnonrec(x)
+    temp = 1
+    FOR n = 1 TO x
+         temp = (2*((2*n)-1))/(n+1)*temp
+    NEXT n
+    catnonrec = temp
+END DEF