20 lines
300 B
Text
20 lines
300 B
Text
local fn CatalanNumbers( levels as int )
|
|
int k, n
|
|
double num, den, cat
|
|
|
|
printf @"1"
|
|
|
|
for n = 2 to levels
|
|
num = 1 : den = 1
|
|
for k = 2 to n
|
|
num *= ( n + k )
|
|
den *= k
|
|
cat = num / den
|
|
next
|
|
printf @"%.f", cat
|
|
next
|
|
end fn
|
|
|
|
fn CatalanNumbers( 30 )
|
|
|
|
HandleEvents
|