Re: Tally

[Brad Moore <bmoore.ada@gmail.com>]

On Thursday, January 16, 2020 at 3:25:50 PM UTC-7, Simon Wright wrote:
> "Jeffrey R. Carter"  writes:
> 
> >>     Counts : constant Count_Maps.Map
> >>       := [for I in Input'Range
> >>             when (for all J in Input'First .. I - 1 => Input (I) /= Input (J))
> >>                use I =>
> >>                   [for K in Input'Range when Input (K) = Input (I)) => 1]
> >>                     'Reduce("+", 0)];
> >
> > This is getting close to write-only code.
> 
> Already there.

That'll be the challenge, I think. With more tools (and new ones) to work with, one hopes people will end up choosing the right tool for the job.
Some of the new tools are powerful, and there might be a tendency to want to use them, but a simpler tool can get the job done faster sometimes.

This example feels like using a big new table saw to slice bread, when a good 'ol bread knife can get it done faster and better.

Note that the simple loop accomplishes the task with a single pass through the date. The monster expression has 3 levels of nested loops, so hard to imagine it would beat the simple loop.

Brad