29 lines
373 B
Text
29 lines
373 B
Text
REM Bell numbers
|
|
DIM A&(13)
|
|
FOR I = 0 TO 13
|
|
A&(I) = 0
|
|
NEXT I
|
|
N = 0
|
|
A&(0) = 1
|
|
GOSUB DisplayRow:
|
|
WHILE N <= 13
|
|
A&(N) = A&(0)
|
|
J = N
|
|
WHILE J >= 1
|
|
JM1 = J - 1
|
|
A&(JM1) = A&(JM1) + A&(J)
|
|
J = J - 1
|
|
WEND
|
|
N = N + 1
|
|
GOSUB DisplayRow:
|
|
WEND
|
|
END
|
|
|
|
DisplayRow:
|
|
PRINT "B(";
|
|
SN$ = STR$(N)
|
|
SN$ = RIGHT$(SN$, 2)
|
|
PRINT SN$;
|
|
PRINT ") =";
|
|
PRINT A&(0)
|
|
RETURN
|