Bonjour,

Je viens de tester sur REXX z/OS.

Sur mainframe, il ne faut seeder que le 1er appel à random() mais pas les suivants sinon ce n'est pas très aléatoire.

En bref, sur z/OS, ce REXX marche très bien !                    

/* REXX */                  
say random(1,6,time('s'))   
do i=0 to 100               
  say random(1,6)           
end                         
exit                        

Dis moi si c'est pareil sur Amiga REXX.

Je t'avais déjà donné le lien mais je le remets.

Comme l'Amiga REXX est une adaptation du vénérable REXX IBM Mainframe, tu peux regarder dans les docs très complètes de papy z/OS (qui lui est toujours vivant ). Il y a de nombreuses fonctions identiques et plein d'exemples.

http://www-01.ibm.com/support/knowledgecenter/?lang=fr#!/SSLTBW_2.1.0/com.ibm.zos.v2r1.ikja300/toc.htm

Message édité par : zzd10h / 06-02-2015 15:39

Bizarre je me souvien pas du tout de ce lien IBM...

Tant mieux.

C'est bookmarké  :-)

En ARexx, vous pouvez regarder aussi du coté de RANDU() (mais il faut multiplier le résultat) !

RANDOM() en ARexx n'est pas vraiment aléatoire... D'où l'intérêt du seed façon zzd10h ;)

/* Randu exemple bidon avec fouchette 0 à 1000 */

 numeric digits 3  

do i=0 to 100

 aleatoire = randu( time('s') )
 resu = (aleatoire * 1000) % 1

 say resu

end


Je précise que je suis complètement rouillé en ARexx ;)

Message édité par : bigdan / 07-02-2015 18:34

@Bigdan