comp.lang.ada
 help / color / mirror / Atom feed
From: Simon Wright <simon@pushface.org>
Subject: Re: Tally
Date: Thu, 16 Jan 2020 22:25:49 +0000
Date: 2020-01-16T22:25:49+00:00	[thread overview]
Message-ID: <lyblr3yr6a.fsf@pushface.org> (raw)
In-Reply-To: qvqmeq$u70$1@dont-email.me

"Jeffrey R. Carter" <spam.jrcarter.not@spam.not.acm.org> 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.

  reply	other threads:[~2020-01-16 22:25 UTC|newest]

Thread overview: 16+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2020-01-14 15:27 Tally Gilbert Gosseyn
2020-01-14 16:22 ` Tally Niklas Holsti
2020-01-14 17:28   ` Tally Simon Wright
2020-01-15 11:52     ` Tally Simon Wright
2020-01-14 21:08 ` Tally Jeffrey R. Carter
2020-01-15  3:40   ` Tally Brad Moore
2020-01-15  9:03     ` Tally Simon Wright
2020-01-15 23:09       ` Tally Jere
2020-01-16 11:34         ` Tally Simon Wright
2020-01-16 15:35           ` Tally Brad Moore
2020-01-16 20:20             ` Tally Randy Brukardt
2020-01-16 22:03               ` Tally Jeffrey R. Carter
2020-01-16 22:00             ` Tally Jeffrey R. Carter
2020-01-16 22:25               ` Simon Wright [this message]
2020-01-17  2:51                 ` Tally Brad Moore
2020-01-17  3:08       ` Tally Brad Moore
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox