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=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,f3405cf75879a8dc
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news2.google.com!npeer02.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!nntp.club.cc.cmu.edu!feeder.erje.net!news.ecp.fr!news.jacob-sparre.dk!pnx.dk!not-for-mail
From: Jacob Sparre Andersen <sparre@nbi.dk>
Newsgroups: comp.lang.ada
Subject: Re: basic questions on using Ada arrays
Date: Fri, 08 Oct 2010 16:47:04 +0200
Organization: Jacob Sparre Andersen
Message-ID: <871v80g2s7.fsf@hugsarin.sparre-andersen.dk>
References: <i8i5ga$ejc$1@speranza.aioe.org>
	<871v838f5x.fsf@hugsarin.sparre-andersen.dk>
	<ln8w2apy0u.fsf@nuthaus.mib.org> <i8ln5h$o0p$1@munin.nbi.dk>
NNTP-Posting-Host: 95.209.253.145.bredband.3.dk
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: munin.nbi.dk 1286549225 22348 95.209.253.145 (8 Oct 2010 14:47:05
 GMT)
X-Complaints-To: news@jacob-sparre.dk
NNTP-Posting-Date: Fri, 8 Oct 2010 14:47:05 +0000 (UTC)
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2 (gnu/linux)
Cancel-Lock: sha1:hsoLJpxrzrzQdDSGTlnI/S2W7Ik=
Xref: g2news1.google.com comp.lang.ada:14434
Date: 2010-10-08T16:47:04+02:00
List-Id: <comp.lang.ada>

Randy Brukardt wrote;

> If you're using an Ada 2005, [...]

> function Apply(Func: access function(F: Float) return Float; Arr: 
> Float_Array) return Float_Array is
>
>>      Result: Float_Array(Arr'Range);
>>   begin
>>      for I in Result'Range loop
>>         Result(I) := Func(Arr(I));
>>      end loop;
>>      return Result;
>>   end Apply;

Wouldn't this implementation of the function be more elegant?

   function Apply (Func : access function (F : Float) return Float;
                   Arr  : in     Float_Array) return Float_Array is
   begin
      return Result : Float_Array (Arr'Range) do
         Result (I) := Func (Arr (I));
      end return;
   end Apply;

Greetings,

Jacob
-- 
Adlai Stevenson said it all when, at an event during the
1956 Presidential campaign, a woman shouted, "You have the
vote of every thinking person!" Stevenson shouted back,
"That's not enough, madam, we need a majority!"