website logo
Auteur
avatar
sinisrus

Forum » » Création-Développement » » Arexx ramdom min-max


Posté : 06-02-2015 14:35 icone du post

Bonjour,

Comment faire pour avoir un nombre random min-max (de façon aléatoire mais chaque chiffre sort de façon équitable)

je fais ça:

---

/* Random Min Max */

do i=0 to 1000
Va=Time('S')
Ln=Length(Va)

say random(1,6,Substr(Va,Ln))

Delay(50)
end >

---

Le problème c'est que le 1 et le 6 sorte moins souvent :-/

--
Coin coin... amitheme.amiga-ng.org
Sam460 1,15Ghz - OS4.1FE - Radeon Saphir HD7750 R7 250E - 2Go de ram

Cet article provient de Le site des utilisateurs francophones actuels et futurs d'AmigaOS 4.x
https://amiga-ng.org/viewtopic.php?topic=2032&forum=14