Bell numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 4,544: / Line 4,544: @@
 \Bell numbers
 code CrLf=9, IntOut=11, Text=12;
-define MaxIndex = 14;
+define MaxN = 14;
-integer A(MaxIndex), I, J, N;
+integer A(MaxN), I, J, N;
 begin
-for I:= 0 to MaxIndex - 1 do A(I):= 0;
+for I:= 0 to MaxN - 1 do A(I):= 0;
 N:= 0; A(0):= 1;
 Text(0, "B("); IntOut(0, N); Text(0, ") = "); IntOut(0, A(0)); CrLf(0);
-while N < MaxIndex do
+while N < MaxN do
   begin
   A(N):= A(0);