Additive Sequence Class Body

Download

Multiplicative Sequence Class Body

--
-- Multiplicative counter.  Increases by a factor each time.
--
with CompCount; use CompCount;
package mulcount is
   -- Create a new type (for one new method) but no more fields.
   type MultSequence is new ComputationalSequence with null record;

   -- Move to the next item in the sequence.
   procedure Next(S: in out MultSequence);
end Mulcount;

Additive Sequence Class Body

Multiplicative Sequence Class Body