7 lines
202 B
Text
7 lines
202 B
Text
10 FOR i% = 1 TO 15
|
|
20 PRINT FNcatalan(i%)
|
|
30 NEXT
|
|
40 END
|
|
50 DEF FNcatalan(n%)
|
|
60 IF n% = 0 THEN = 1
|
|
70 = 2 * (2 * n% - 1) * FNcatalan(n% - 1) / (n% + 1)
|