From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!aioe.org!.POSTED.8dY8omnix++EB5/QBRk4Sw.user.gioia.aioe.org!not-for-mail
From: Simon Wright <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: Tally
Date: Thu, 16 Jan 2020 22:25:49 +0000
Organization: Aioe.org NNTP Server
Message-ID: <lyblr3yr6a.fsf@pushface.org>
References: <3c6f1486-293d-4eb5-a379-279b108248d8@googlegroups.com>
	<qvlajt$95j$1@dont-email.me>
	<b806369f-e712-43e5-b6de-c80fb97dde96@googlegroups.com>
	<lyo8v5ytv3.fsf@pushface.org>
	<d097db6b-b30c-4cbd-8343-b18592d924bc@googlegroups.com>
	<lyftgfzlb4.fsf@pushface.org>
	<4967a95b-3d79-4a5b-a30d-0f04f00ebbc4@googlegroups.com>
	<qvqmeq$u70$1@dont-email.me>
NNTP-Posting-Host: 8dY8omnix++EB5/QBRk4Sw.user.gioia.aioe.org
Mime-Version: 1.0
Content-Type: text/plain
X-Complaints-To: abuse@aioe.org
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (darwin)
Cancel-Lock: sha1:zlbFOuxgTezsJXycAZu4lNzB+Cg=
X-Notice: Filtered by postfilter v. 0.9.2
Xref: reader01.eternal-september.org comp.lang.ada:57855
Date: 2020-01-16T22:25:49+00:00
List-Id: <comp.lang.ada>

"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.