Bell numbers: Difference between revisions

==={{header|ANSI BASIC}}===

{{trans|QuickBASIC}}

{{works with|Decimal BASIC}}

<syntaxhighlight lang="basic">

100 REM Bell numbers

110 LET MaxIndex = 14

120 OPTION BASE 0

130 DIM A(13) ! i.e. DIM A(MaxIndex - 1), ANSI BASIC does not allow expressions in the bound arguments.

140 FOR I = 0 TO MaxIndex - 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 < MaxIndex

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

</syntaxhighlight>

{{out}}

<pre>

B( 0) = 1

B( 1) = 1

B( 2) = 2

B( 3) = 5

B( 4) = 15

B( 5) = 52

B( 6) = 203

B( 7) = 877

B( 8) = 4140

B( 9) = 21147

B(10) = 115975

B(11) = 678570

B(12) = 4213597

B(13) = 27644437

B(14) = 190899322

</pre>