Forum » » Création-Développement » » Arexx ramdom min-max
Posté : 06-02-2015 14:35
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