Re: Tally

[Simon Wright <simon@pushface.org>]

Brad Moore <bmoore.ada@gmail.com> writes:

>    for Number of Input loop
>       Counts (Number) := Counts (Number) + 1;
>    end loop;

   for Number of Input loop
      if Counts.Contains (Number) then
         Counts (Number) := Counts (Number) + 1;
      else
         Counts.Insert (Number, 1);
      end if;
   end loop;

and then of course

   for C in Counts.Iterate loop
      Put_Line (Count_Maps.Key (C)'Image
                  & " -> "
                  & Count_Maps.Element (C)'Image);
   end loop;