Re: basic questions on using Ada arrays

[Jacob Sparre Andersen <sparre@nbi.dk>]

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