19 lines
331 B
Plaintext
19 lines
331 B
Plaintext
' Bell numbers
|
|
CONST MAXN% = 14
|
|
DIM A&(MAXN% - 1)
|
|
FOR I% = 0 TO MAXN% - 1
|
|
A&(I%) = 0
|
|
NEXT I%
|
|
N% = 0
|
|
A&(0) = 1
|
|
PRINT USING "B(##) = #########"; N%; A&(0)
|
|
WHILE N% < MAXN%
|
|
A&(N%) = A&(0)
|
|
FOR J% = N% TO 1 STEP -1
|
|
A&(J% - 1) = A&(J% - 1) + A&(J%)
|
|
NEXT J%
|
|
N% = N% + 1
|
|
PRINT USING "B(##) = #########"; N%; A&(0)
|
|
WEND
|
|
END
|