Bell numbers: Difference between revisions
m
→{{header|XPL0}}: MaxN instead of confusing MaxIndex.
m (→{{header|Modula-2}}: MaxN instead of confusing MaxIndex.) |
m (→{{header|XPL0}}: MaxN instead of confusing MaxIndex.) |
||
Line 4,544:
\Bell numbers
code CrLf=9, IntOut=11, Text=12;
define
integer A(
begin
for I:= 0 to
N:= 0; A(0):= 1;
Text(0, "B("); IntOut(0, N); Text(0, ") = "); IntOut(0, A(0)); CrLf(0);
while N <
begin
A(N):= A(0);
|