Anonymous user
Bell numbers: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 44:
if Row in Triangle'Range(1) then
for I in Triangle'First(1) .. Row loop
Put_Line (Triangle (I,
end loop;
end if;
Line 71:
for I in Triangle'First(1) + 1 .. Triangle'Last(1) loop
Triangle (I,
for J in Triangle'First(
if Triangle (I - 1, J) /= 0 then
Triangle (I, J + 1) := Triangle (I, J) + Triangle (I - 1, J);
| |||