1 REM https://rosettacode.org/wiki/Catalan_numbers 10 LET @(0) = 1 20 FOR n = 0 TO 15 30 LET p = n + 1 40 LET @(p) = 0 50 FOR i = 0 TO n 60 LET q = n - i 70 LET @(p) = @(p) + @(i) * @(q) 80 NEXT i 90 PRINT n; " "; @(n) 100 NEXT n Return to Example Index