18 lines
426 B
Text
18 lines
426 B
Text
10 REM Catalan numbers
|
|
20 LET N = 0
|
|
30 LET C = 1
|
|
40 PRINT N," ",C
|
|
50 IF N > 9 THEN END
|
|
60 LET N = N + 1
|
|
70 GOSUB 200
|
|
80 LET C = (2 * N - 1) * C
|
|
90 LET C = 2 * C / (N + 1)
|
|
100 LET C = C + 2 * I * (2 * N - 1)
|
|
110 GOTO 40
|
|
200 LET I = 0
|
|
210 IF C <= 0 THEN RETURN
|
|
220 LET C = C - (N + 1)
|
|
230 LET I = I + 1
|
|
240 GOTO 210
|
|
250 REM To avoid internal overflow, I subtract something clever from
|
|
260 REM C and then add it back at the end.
|