Re: range in ascii

[Jeffrey Carter <spam@spam.com>]

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