8 lines
173 B
Text
8 lines
173 B
Text
10 FOR i = 1 TO 15
|
|
20 PRINT i;" ";catalan(i)
|
|
30 NEXT
|
|
40 END
|
|
50 SUB catalan(n)
|
|
60 catalan = 1
|
|
70 IF n <> 0 THEN catalan = ((2*((2*n)-1))/(n+1))*catalan(n-1)
|
|
80 END SUB
|