Re: Beginer problem: variable array size

["Pat Rogers" <progers@classwide.com>]

<tmoran@acm.org> wrote in message
news:Akzi9.152773$Jo.48440@rwcrnsc53...
<snip>
> with Ada.Text_IO;
> procedure Munch is
>   use Ada.Text_IO;
>   package Int_IO is new Integer_IO(Integer);
>
>   type List_Type is array (Integer range <>) of Integer;
>   Empty_List: List_Type(1 .. 0);
>
>   function Get return List_Type is
>     Datum   : Integer;
>   begin
>     Put("Enter an integer, or 0 to quit:");
>     Int_IO.Get(Datum);
>     if Datum = 0 then
>       return Empty_List;
>     else
>       return Datum & Get;

Where does the function "&"( Left : Integer; Right : List_Type )
return List_Type come from?

>     end if;
>   end Get;
>
>   List : List_Type := Get;
>   Temp : Integer;
>
> begin
>   for I in List'range loop
>     for J in I + 1 .. List'Last loop
>       if List(I) > List(J) then
>         Temp := List(I);
>         List(I) := List(J);
>         List(J) := Temp;
>       end if;
>     end loop;
>     Put_Line(Integer'Image(List(I)));
>   end loop;
> end Munch;