8 lines
170 B
Text
8 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
|