From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.1 required=5.0 tests=BAYES_00,
	PP_MIME_FAKE_ASCII_TEXT autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,e44577c74a66122,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-12-22 10:05:25 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!newsfeed.freenet.de!news.freenet.de!not-for-mail
From: see@messagebody.com (Jan)
Newsgroups: comp.lang.ada
Subject: what's wrong with random
Date: Sun, 22 Dec 2002 18:03:54 GMT
Message-ID: <3e05fbdf.4089296@news.freenet.de>
X-Newsreader: Forte Free Agent 1.21/32.243
NNTP-Posting-Host: 213.7.190.46
X-Trace: 1040580309 news.freenet.de 21194 213.7.190.46:1029
X-Complaints-To: abuse@freenet.de
Xref: archiver1.google.com comp.lang.ada:32201
Date: 2002-12-22T18:03:54+00:00
List-Id: <comp.lang.ada>

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?