Re: Trivial Ada question

[Ted Dennison <dennison@telepath.com>]

Reinert Korsnes wrote:
> Yes, maybe the simplest possible.
> The example below is also somehow simple,
> but I hoped for some "exit name" solution
> which I have not yet noticed :-)
> 
> reinert
> 
>  All_OK := 1;
(0 changed to 1)

>  for I in A'Range loop
>     if not some condition (I) then
>        All_OK := 0;
(1 changed to 0)

>        exit;
>     end if;
>  end loop;
>  N := N + All_OK;


Hmmmm. How about:

function All_Some_Condition (A : Some_Array; N : Natural) return Natural is
begin
    for I in A'range loop
       if not some condition A(I) then
          return N;
       end loop;
    end loop;

    return N + 1;
end All_Some_Condition;

(Warning: Not compiled. A'range may need to be A'first..A'last, I always 
get those mixed up)