19 lines
431 B
Text
19 lines
431 B
Text
100 REM Bell numbers
|
|
110 OPTION BASE 0
|
|
120 DIM A(13)
|
|
130 LET MaxN = UBOUND(A) + 1
|
|
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
|