Re: Array Iterator

[Matthew Heaney <matthew_heaney@acm.org>]

Gregory Mewborn <mewborn@erols.com> writes:

You don't have to use an ADT.  You could just use an array:

   subtype Set_Element is Integer range 1 .. 100;

   type Set_Type is array (Set_Element) of Boolean;

Then "set iteration" is just iteration over the array:

   for Element in Set_Element loop
      if Set (Element) then
         <Element is in set, do something with it>
      end if;
   end loop;

Will that do?


> How do i create a set iterator for a set using a boolean array.
> 
> 
> I begin with:
> 
> package integer_Set is
> type Integer_Range is integer (1..100);
> type set is limited private;
> type set_Iteration is limited private;
> 
> procedure start_set_Iter (S: Set);
> function more (S_Iter: Set_Iteration);
> Procedure next_element (S_Iter: Set_Iteration);
> 
> 
> private
> type Set array (Integer_RANGE) of Boolean;
> 
> -- how do i write a Set_Iteration to use the the above functions and
> procedures and to work with the Set array?