anoniem Geplaatst: 4 oktober 2001 Delen Geplaatst: 4 oktober 2001 perl vraagje:is er een betere manier dan @ar=(1..6); $index=rand @ar; $getal=$ar[$index];om aan echt toevallige, gehele getallen in dit bereik te komen ? Quote Link naar reactie
anoniem Geplaatst: 5 oktober 2001 Auteur Delen Geplaatst: 5 oktober 2001 code: $max = 6;srand(time() ^ ($$ + ($$ << 15)) ); $number = int(rand($max) + 1); aangepaste versie van http://www.cgi101.com/class/ch10/ :smile:------------------ Alvast bedankt... :)Powersoft Programming Email: psprogramming@multimania.com Quote Link naar reactie
anoniem Geplaatst: 5 oktober 2001 Auteur Delen Geplaatst: 5 oktober 2001 Ik vind het zelf prettiger om zelf de code voor random numbers te schrijven. Dit is vrij eenvoudig met behulp van de formule van LehmerNx = (aNx-1 + c) mod mDe 'sterkte' van de RNG hangt af van de constanten. De volgende constanten blijken goede random numbers te genereren:a = 16807 c = 0 m = (2 tot de macht 31) - 1(genereert longint nummers)Je hebt alleen een 'random seed' nodig voor N bij x = 1. Hiervoor kun je bijvoorbeeld de systeemklok gebruiken, let wel op dat de seed niet 0 mag zijn, anders zijn alle getallen 0. Maar ik ben nog van plan een Lehmer RNG Howto op mijn website te maken met programmeervoorbeelden.[This message has been edited by danieldk (edited 05-10-2001).] Quote Link naar reactie
anoniem Geplaatst: 30 januari 2003 Auteur Delen Geplaatst: 30 januari 2003 [code:1:7bdb99f199]my $dots = int(1 + rand 6); print "You threw a $dots\n";[/code:1:7bdb99f199] Quote Link naar reactie
anoniem Geplaatst: 11 april 2003 Auteur Delen Geplaatst: 11 april 2003 Tja, deze toppic is al ruim een jaar oud. :-? :-? :-? Wim. Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen