9 lines
173 B
Text
9 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
|