Using the Ada Web Server (AWS), part 2 - snippet 7

gistfile1.adb

for i in Fibs'Range loop
   case i is
      when 0 => Fibs (i) := 0;
      when 1 => Fibs (i) := 1;
      when others => Fibs (i) := Fibs (i - 1) + Fibs (i - 2);
   end case;

   Append (Position, i);
   Append (Fibonacci, Fibs (i));
end loop;