<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;">OK, I think what you're saying is to work with (random) integers and use fromEnum and toEnum to get corresponding DayOfWeek. But I get this when I try to use toEnum:<br><br>[michael@localhost ~]$ ghci dow<br>GHCi, version 6.10.1: http://www.haskell.org/ghc/ :? for help<br>Loading package ghc-prim ... linking ... done.<br>Loading package integer ... linking ... done.<br>Loading package base ... linking ... done.<br>[1 of 1] Compiling Main ( dow.hs, interpreted )<br>Ok, modules loaded: Main.<br>*Main> fromEnum Wednesday<br>Loading package old-locale-1.0.0.1 ... linking ... done.<br>Loading package old-time-1.0.0.1 ... linking ... done.<br>Loading package random-1.0.0.1 ... linking ... done.<br>2<br>*Main> toEnum 2<br>*** Exception: Prelude.Enum.().toEnum: bad argument<br>*Main>
<br><br>Michael<br><br>--- On <b>Fri, 5/1/09, John Van Enk <i><vanenkj@gmail.com></i></b> wrote:<br><blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><br>From: John Van Enk <vanenkj@gmail.com><br>Subject: Re: [Haskell-cafe] Generating random enums<br>To: "michael rice" <nowgate@yahoo.com><br>Cc: haskell-cafe@haskell.org<br>Date: Friday, May 1, 2009, 12:36 PM<br><br><div id="yiv201743860"><div>When you derive Enum, you get fromEnum and toEnum for free. You don't need your dow2Int stuff or int2Dow. Replace those with fromEnum and toEnum respectively.</div>
<div> </div>
<div>/jve<br><br></div>
<div class="gmail_quote">On Fri, May 1, 2009 at 12:26 PM, michael rice <span dir="ltr"><<a rel="nofollow" ymailto="mailto:nowgate@yahoo.com" target="_blank" href="/mc/compose?to=nowgate@yahoo.com">nowgate@yahoo.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0px 0px 0px 0.8ex; padding-left: 1ex;">
<table border="0" cellpadding="0" cellspacing="0">
<tbody>
<tr>
<td valign="top">I'm using the code below to generate random days of the week [Monday..Sunday].<br><br>Is there a better/shorter way to do this?<br><br>Michael<br><br>==============<br><br>[michael@localhost ~]$ ghci dow<br>
GHCi, version 6.10.1: <a rel="nofollow" target="_blank" href="http://www.haskell.org/ghc/">http://www.haskell.org/ghc/</a> :? for help<br>Loading package ghc-prim ... linking ... done.<br>Loading package integer ... linking ... done.<br>
Loading package base ... linking ... done.<br>[1 of 1] Compiling Main ( dow.hs, interpreted )<br>Ok, modules loaded: Main.<br>*Main> random (mkStdGen 100) :: (DayOfWeek, StdGen)<br>Loading package old-locale-1.0.0.1 ... linking ... done.<br>
Loading package old-time-1.0.0.1 ... linking ... done.<br>Loading package random-1.0.0.1 ... linking ... done.<br>(Friday,4041414 40692)<br>*Main> random (mkStdGen 123) :: (DayOfWeek, StdGen)<br>(Tuesday,4961736 40692)<br>
*Main><br><br>==============<br><br>import System.Random<br><br>data DayOfWeek<br> = Monday<br> | Tuesday<br> | Wednesday<br> | Thursday<br> | Friday<br> | Saturday<br> | Sunday<br> deriving (Show, Read, Eq, Enum, Ord, Bounded)<br>
<br>instance Random DayOfWeek where<br> randomR (a,b) g = <br> case (randomIvalInteger (toInteger (dow2Int a), toInteger (dow2Int b)) g) of<br> (x, g) -> (int2Dow x, g)<br> where<br> dow2Int Monday = 0<br>
dow2Int Tuesday = 1<br> dow2Int Wednesday = 2<br> dow2Int Thursday = 3<br> dow2Int Friday = 4<br> dow2Int Saturday = 5<br> dow2Int Sunday = 6<br><br> int2Dow 0 = Monday<br>
int2Dow 1 = Tuesday<br> int2Dow 2 = Wednesday<br> int2Dow 3 = Thursday<br> int2Dow 4 = Friday<br> int2Dow 5 = Saturday<br> int2Dow 6 = Sunday<br><br> random g = randomR (minBound,maxBound) g<br>
<br>randomIvalInteger :: (RandomGen g, Num a) => (Integer, Integer) -> g -> (a, g)<br>randomIvalInteger (l,h) rng<br> | l > h = randomIvalInteger (h,l) rng<br> | otherwise = case (f n 1 rng) of (v, rng') -> (fromInteger (l + v `mod` k), rng')<br>
where<br> k = h - l + 1<br> b = 2147483561<br> n = iLogBase b k<br><br> f 0 acc g = (acc, g)<br> f n acc g = <br> let<br> (x,g') = next g<br> in<br> f (n-1) (fromIntegral x + acc * b) g'<br>
<br>iLogBase :: Integer -> Integer -> Integer<br>iLogBase b i = if i < b then 1 else 1 + iLogBase b (i `div` b)<br><br><br><br> <br><br></td></tr></tbody></table><br><br>_______________________________________________<br>
Haskell-Cafe mailing list<br><a rel="nofollow" ymailto="mailto:Haskell-Cafe@haskell.org" target="_blank" href="/mc/compose?to=Haskell-Cafe@haskell.org">Haskell-Cafe@haskell.org</a><br><a rel="nofollow" target="_blank" href="http://www.haskell.org/mailman/listinfo/haskell-cafe">http://www.haskell.org/mailman/listinfo/haskell-cafe</a><br>
<br></blockquote></div><br><br clear="all">
<div></div><br>-- <br>/jve<br>
</div></blockquote></td></tr></table><br>