Re: basic question on adding 2 arrays

[Jeffrey Carter <spam.jrcarter.not@spam.not.acm.org>]

On 07/12/2014 09:09 PM, Nasser M. Abbasi wrote:
>
> This is what I tried. But after making special
> "+" to add the 2 slices of grid_type, by making
> new grid_type2 which is 2 elements smaller than
> grid_type, how does not tell Ada to move this
> grid_type2 into grid_type since they are of
> different type?  Do I need another loop for this?


type Base_Grid is array (Positive range <>) of Float;
subtype Grid_Type is Base_Grid (1 .. Npoints);

function "+" (Left : in Base_Grid; Right : in Base_Grid) return Base_Grid with
Pre => Left'Length = Right'Length;

Next (Next'First + 1 .. Next'Last - 1) :=
    Next (Next'First .. Next'Last - 2) +
    Next (Next'First + 2 .. Next'Last);

-- 
Jeff Carter
"I would never want to belong to any club that
would have someone like me for a member."
Annie Hall
41