interesting.<div><br></div><div>the sequences you get are random, but unless you enter a new number that is really far from the previous one, the probability of getting the same first random number seems high.</div><div><div>
<br></div></div><div><div>import System.Random</div><div>import Control.Monad(when)</div><div><br></div><div>main = do</div><div>  numberString &lt;- getLine</div><div>  when (not $ null numberString) $ do</div><div>    let seed = read numberString</div>
<div>    let randNumbers = take 10 . randomRs (1::Int,6) $ mkStdGen seed</div><div>      in putStrLn $ &quot;Numbers are &quot; ++ show randNumbers</div><div>    main </div><div> <br></div><div><div>1</div><div>Numbers are [6,5,2,6,5,2,3,2,5,5]</div>
<div>1000</div><div>Numbers are [6,4,3,2,6,5,2,3,3,5]</div><div>1000000</div><div>Numbers are [6,4,3,6,5,5,3,4,6,4]</div><div>1000000000</div><div>Numbers are [4,1,3,4,6,1,2,4,1,6]</div><div>1000000000000</div><div>Numbers are [1,2,3,3,5,5,4,6,6,4]</div>
<div>1000000000000000</div><div>Numbers are [1,4,2,6,6,2,4,2,6,5]</div></div></div><div><br></div><div><br></div><div><br></div><div><div class="gmail_quote">On Thu, Oct 8, 2009 at 10:15 PM, michael rice <span dir="ltr">&lt;<a href="mailto:nowgate@yahoo.com">nowgate@yahoo.com</a>&gt;</span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><table cellspacing="0" cellpadding="0" border="0"><tbody><tr><td valign="top" style="font:inherit">I&#39;m entering a new number to make a different seed for my generator each time through the loop, but my resulting numbers are anything but random.<br>
<br>Where am I going wrong?<br><br>Michael <br><br>=============================<br><br>import System.Random<br>import Control.Monad(when)<br><br>main = do<br>  numberString &lt;- getLine<br>  when (not $ null numberString) $ do<br>
    let seed = read numberString<br>    let (randNumber, newGen) = randomR (1,6) (mkStdGen seed) :: (Int, StdGen)<br>      in putStrLn $ &quot;Number is &quot; ++ show randNumber<br>    main <br>  <br>=============================<br>
<br>[michael@localhost ~]$ runhaskell zz.hs<br>12317<br>Number is 6<br>12371<br>Number is 6<br>37829<br>Number is 6<br>8713<br>Number is 6<br>71392<br>Number is 5<br>29492<br>Number
 is 6<br>41089<br>Number is 6<br>28483<br>Number is 6<br>78687<br>Number is 5<br>40703<br>Number is 6<br>86910<br>Number is 5<br>15608<br>Number is 6<br>56155<br>Number is 5<br>31575<br>Number is 6<br>72231<br>Number is 5<br>
51815<br>Number is 6<br>20189<br>Number is 6<br>71533<br>Number is 5<br>17755<br>Number is 6<br>91161<br>Number is 5<br><br>[michael@localhost ~]$ <br><br></td></tr></tbody></table><br>

      <br>_______________________________________________<br>
Haskell-Cafe mailing list<br>
<a href="mailto:Haskell-Cafe@haskell.org">Haskell-Cafe@haskell.org</a><br>
<a href="http://www.haskell.org/mailman/listinfo/haskell-cafe" target="_blank">http://www.haskell.org/mailman/listinfo/haskell-cafe</a><br>
<br></blockquote></div><br></div>