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 autolearn=ham autolearn_force=no version=3.4.4 X-Google-Thread: 103376,1f78990666319a12 X-Google-Attributes: gid103376,public X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news1.google.com!news4.google.com!newshub.sdsu.edu!elnk-nf2-pas!newsfeed.earthlink.net!stamper.news.pas.earthlink.net!newsread1.news.pas.earthlink.net.POSTED!a6202946!not-for-mail From: Jeffrey Carter Organization: jrcarter commercial-at acm [period | full stop] org User-Agent: Mozilla/5.0 (Windows; U; Win98; en-US; rv:1.7.3) Gecko/20040910 X-Accept-Language: en-us, en MIME-Version: 1.0 Newsgroups: comp.lang.ada Subject: Re: range in ascii References: <1111505197.604268.101910@l41g2000cwc.googlegroups.com> <1112261828.853505.238490@f14g2000cwb.googlegroups.com> In-Reply-To: <1112261828.853505.238490@f14g2000cwb.googlegroups.com> Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit Message-ID: Date: Thu, 31 Mar 2005 19:15:44 GMT NNTP-Posting-Host: 4.240.33.75 X-Complaints-To: abuse@earthlink.net X-Trace: newsread1.news.pas.earthlink.net 1112296544 4.240.33.75 (Thu, 31 Mar 2005 11:15:44 PST) NNTP-Posting-Date: Thu, 31 Mar 2005 11:15:44 PST Xref: g2news1.google.com comp.lang.ada:10195 Date: 2005-03-31T19:15:44+00:00 List-Id: mieville@mac.com wrote: > type Freq_Lettre is array (Lettre) of Integer; Integer allows negative values, so I guess negative frequencies are meaningful? If not, perhaps you should use Natural. Why not use subtype Lettre is Character range 'x' ... 'z'; -- or whatever and avoid the conversions between Characters and Integers? > Put_Line ("Entrer un text au choix et le terminer par 'CTRL/Q' et > 'enter' "); Read_Input : declare Line : constant String := PragmARC.Get_Line; begin All_Chars : for I in Line'range loop if Line (I) in Lettre then Count (Line (I) ) := Count (Line (I) ) + 1; end if; end loop All_Chars; end Read_Input; The PragmAda Reusable Components are available from http://home.earthlink.net/~jrcarter010/pragmarc.htm -- Jeff Carter "I unclog my nose towards you." Monty Python & the Holy Grail 11