20 lines
506 B
Plaintext
20 lines
506 B
Plaintext
100 REM Bell numbers
|
|
110 LET MaxN = 14
|
|
120 OPTION BASE 0
|
|
130 DIM A(13) ! i.e. DIM A(MaxN - 1), ANSI BASIC does not allow expressions in the bound arguments.
|
|
140 FOR I = 0 TO MaxN - 1
|
|
150 LET A(I) = 0
|
|
160 NEXT I
|
|
170 LET N = 0
|
|
180 LET A(0) = 1
|
|
190 PRINT USING "B(##) = #########": N, A(0)
|
|
200 DO WHILE N < MaxN
|
|
210 LET A(N) = A(0)
|
|
220 FOR J = N TO 1 STEP -1
|
|
230 LET A(J - 1) = A(J - 1) + A(J)
|
|
240 NEXT J
|
|
250 LET N = N + 1
|
|
260 PRINT USING "B(##) = #########": N, A(0)
|
|
270 LOOP
|
|
280 END
|