Re: Tally

[Simon Wright <simon@pushface.org>]

Jere <jhb.chat@gmail.com> writes:

> I might recommend using insert every iteration and seeing if
> it fails or succeeds.  Since it gives a cursor regardless of
> success, you can use that get the element and avoid doing
> all the searches each time:
>
>     for Number of Input loop
>     
>         -- Try to insert a new element.  This will 
>         -- fail if the element already exists
>         Counts.Insert
>             (Key => Number,
>              New_Item => 1,
>              Position => Position,
>              Inserted => Inserted);
>     
>         -- Since the element already exists, simply
>         -- increment the count
>         if not inserted then
>             Counts(Position) := Counts(Position) + 1;
>         end if;
>
>     end loop;

Yes, I thought about that. More LoC/less clarity without the comments
are the only objections I can see (though fairly compelling for toy
examples!)