14 lines
439 B
Ada
14 lines
439 B
Ada
with Ada.Text_IO;
|
|
with Subtractive_Generator;
|
|
|
|
procedure Main is
|
|
Random : Subtractive_Generator.State;
|
|
N : Natural;
|
|
begin
|
|
Subtractive_Generator.Initialize (Generator => Random,
|
|
Seed => 292929);
|
|
for I in 220 .. 222 loop
|
|
Subtractive_Generator.Next (Generator => Random, N => N);
|
|
Ada.Text_IO.Put_Line (Integer'Image (I) & ":" & Integer'Image (N));
|
|
end loop;
|
|
end Main;
|