Array Iterator

Array Iterator

[Gregory Mewborn]

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?

Re: Array Iterator

[Matthew Heaney]

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?