9 lines
170 B
Text
9 lines
170 B
Text
|
FOR i = 1 TO 15
|
||
|
|
PRINT i;" ";catalan(i)
|
||
|
|
NEXT
|
||
|
|
|
||
|
|
FUNCTION catalan(n)
|
||
|
|
catalan = 1
|
||
|
|
if n <> 0 then catalan = ((2 * ((2 * n) - 1)) / (n + 1)) * catalan(n - 1)
|
||
|
|
END FUNCTION
|