17 lines
409 B
Text
17 lines
409 B
Text
100 REM Catalan numbers
|
|
110 LET MaxN = 14
|
|
120 LET N = 0
|
|
130 LET C = 1
|
|
140 PRINT USING "C(##) = ########": N, C
|
|
150 DO WHILE N < MaxN
|
|
160 LET N = N + 1
|
|
170 LET I = 0
|
|
180 DO WHILE C > 0
|
|
190 LET C = C - (N + 1)
|
|
200 LET I = I + 1
|
|
210 LOOP
|
|
220 LET C = INT(2 * (2 * N - 1) * C / (N + 1))
|
|
230 LET C = C + 2 * I * (2 * N - 1)
|
|
240 PRINT USING "C(##) = ########": N, C
|
|
250 LOOP
|
|
260 END
|