From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,LOTS_OF_MONEY autolearn=ham autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,71c743c03ed191fe X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2002-09-20 09:01:03 PST Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!canoe.uoregon.edu!arclight.uoregon.edu!news.tufts.edu!uunet!dca.uu.net!prodigy.com!newsmst01.news.prodigy.com!prodigy.com!postmaster.news.prodigy.com!newssvr11.news.prodigy.com.POSTED!not-for-mail From: "Pat Rogers" Newsgroups: comp.lang.ada References: <38993b18.0209191906.b56b982@posting.google.com> Subject: Re: Beginer problem: variable array size X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2600.0000 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000 Message-ID: NNTP-Posting-Host: 208.191.176.180 X-Complaints-To: abuse@prodigy.net X-Trace: newssvr11.news.prodigy.com 1032537651 ST000 208.191.176.180 (Fri, 20 Sep 2002 12:00:51 EDT) NNTP-Posting-Date: Fri, 20 Sep 2002 12:00:51 EDT Organization: Prodigy Internet http://www.prodigy.com X-UserInfo1: FKPO@MC@OXRQRILY@BJZ\_TDFRYB@GXLN@GZ_GYO^JWTEPIB_NVUAH_[BL[\IRKIANGGJBFNJF_DOLSCENSY^U@FRFUEXR@KFXYDBPWBCDQJA@X_DCBHXR[C@\EOKCJLED_SZ@RMWYXYWE_P@\\GOIW^@SYFFSWHFIXMADO@^[ADPRPETLBJ]RDGENSKQQZN Date: Fri, 20 Sep 2002 16:00:52 GMT Xref: archiver1.google.com comp.lang.ada:29225 Date: 2002-09-20T16:00:52+00:00 List-Id: wrote in message news:Akzi9.152773$Jo.48440@rwcrnsc53... > 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;