Re: Matching random numbers

*To*: mathgroup at smc.vnet.net*Subject*: [mg4670] Re: [mg4615] Matching random numbers*From*: Allan Hayes <hay at haystack>*Date*: Thu, 22 Aug 1996 03:55:21 -0400*Sender*: owner-wri-mathgroup at wolfram.com

"A. Ortiz-Tapia" <ao202 at cus.cam.ac.uk> [mg4615] Matching random numbers writes >>>>>>>>>>>> I have written the following program: In[3]:= (count = 0 ; Label[nextrandom]; pileup = pileup + 1; x = Random[]; y = Random[]; a = Round[100*x]; b = Round[100*y]; If[a== b,Return[x], Goto[nextrandom]]; If[count == 5000, Break[]]; Goto[nextrandom]) The purpose of this program is to produce two inpendent random numbers;match this two numbers by "converting" them to integers, then if theyare equal print either of them (I choosed x), *and* increment the valueof a variable, such that at the end I can have 5000 "matched" random numbers. The program, so far, gives out *only one number*. I would like to have some comments. <<<<<<<<<<<<<< Arturo, The following, written in a functional style more suited to Ma, seems to do what you want. I have replaced 5000 with 10. (mat= {}; While[Length[mat] <10, If[Round[100#1]==Round[100#2], AppendTo[mat,#1 ] ]&[Random[],Random[]] ]; mat) {0.172357, 0.643095, 0.35482, 0.517124, 0.168319, 0.0228716, 0.183782, 0.406388, 0.0474315, 0.542734} Allan Hayes hay at haystack.demon.co.uk ==== [MESSAGE SEPARATOR] ====