Hi everybody,

I have the following problem:


BODY FROM A PACKAGE:
--------------------

      ValidChars : String :=
"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
                         &"0123456789!�$%&()=@+-;_#";
      subtype Int_Slice is Integer range ValidChars'Range;
      package My_Random is new Ada.Numerics.Discrete_Random
(Int_Slice);
 
   function Generate_FileName (Length : positive) return String is
      G : My_Random.Generator;
      I : Int_Slice;
      Result : String(1..Length);
   begin
      My_Random.Reset(G);

      for X in 1..Length
      loop
         I := My_Random.Random(G);
         Result(X) := Mnozina(I);
      end loop;
      return Result;
   end Generate_FileName;

-------------------

When I now test the procedure, I looks like the random number
generator in Ada changes its results too slowly, because I always get
at least 5 equal strings as result, then the result changes, and I get
again 5 equal string...

   for X in 1..10
   loop
      Put_Line(Generate_Filename(8));
   end loop;

The following code works like it should, but it's stupid, of course:

   for X in 1..10
   loop
      Put_Line(Generate_Filename(8));
      delay 0.01;
   end loop;


What's wrong?