<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;">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: http://www.haskell.org/ghc/&nbsp; :? 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&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ( dow.hs, interpreted )<br>Ok, modules loaded: Main.<br>*Main&gt; 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&gt; random (mkStdGen 123) ::
 (DayOfWeek, StdGen)<br>(Tuesday,4961736 40692)<br>*Main&gt;<br><br>==============<br><br>import System.Random<br><br>data DayOfWeek<br>&nbsp;&nbsp;&nbsp; = Monday<br>&nbsp;&nbsp;&nbsp; | Tuesday<br>&nbsp;&nbsp;&nbsp; | Wednesday<br>&nbsp;&nbsp;&nbsp; | Thursday<br>&nbsp;&nbsp;&nbsp; | Friday<br>&nbsp;&nbsp;&nbsp; | Saturday<br>&nbsp;&nbsp;&nbsp; | Sunday<br>&nbsp;&nbsp;&nbsp; deriving (Show, Read, Eq, Enum, Ord, Bounded)<br><br>instance Random DayOfWeek where<br>&nbsp; randomR (a,b) g = <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; case (randomIvalInteger (toInteger (dow2Int a), toInteger (dow2Int b)) g) of<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (x, g) -&gt; (int2Dow x, g)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; where<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dow2Int Monday&nbsp;&nbsp;&nbsp; = 0<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dow2Int Tuesday&nbsp;&nbsp; = 1<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dow2Int Wednesday
 = 2<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dow2Int Thursday&nbsp; = 3<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dow2Int Friday&nbsp;&nbsp;&nbsp; = 4<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dow2Int Saturday&nbsp; = 5<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dow2Int Sunday&nbsp;&nbsp;&nbsp; = 6<br><br>&nbsp;&nbsp; &nbsp; int2Dow 0&nbsp;&nbsp; &nbsp;= Monday<br>&nbsp;&nbsp; &nbsp; int2Dow 1&nbsp;&nbsp; &nbsp;= Tuesday<br>&nbsp;&nbsp; &nbsp; int2Dow 2&nbsp;&nbsp; &nbsp;= Wednesday<br>&nbsp;&nbsp; &nbsp; int2Dow 3&nbsp;&nbsp; &nbsp;= Thursday<br>&nbsp;&nbsp; &nbsp; int2Dow 4&nbsp;&nbsp; &nbsp;= Friday<br>&nbsp;&nbsp; &nbsp; int2Dow 5&nbsp;&nbsp; &nbsp;= Saturday<br>&nbsp;&nbsp; &nbsp; int2Dow 6&nbsp;&nbsp; &nbsp;= Sunday<br><br>&nbsp; random g&nbsp;&nbsp; &nbsp;&nbsp; = randomR (minBound,maxBound) g<br><br>randomIvalInteger :: (RandomGen g, Num a) =&gt; (Integer, Integer) -&gt; g -&gt; (a, g)<br>randomIvalInteger
 (l,h) rng<br>&nbsp;| l &gt; h&nbsp;&nbsp;&nbsp;&nbsp; = randomIvalInteger (h,l) rng<br>&nbsp;| otherwise = case (f n 1 rng) of (v, rng') -&gt; (fromInteger (l + v `mod` k), rng')<br>&nbsp;&nbsp;&nbsp;&nbsp; where<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; k = h - l + 1<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; b = 2147483561<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; n = iLogBase b k<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; f 0 acc g = (acc, g)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; f n acc g = <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; let<br>&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; (x,g')&nbsp;&nbsp; = next g<br>&nbsp;&nbsp; &nbsp;&nbsp; in<br>&nbsp;&nbsp; &nbsp;&nbsp; f (n-1) (fromIntegral x + acc * b) g'<br><br>iLogBase :: Integer -&gt; Integer -&gt; Integer<br>iLogBase b i = if i &lt; b then 1 else 1 + iLogBase b (i `div` b)<br><br><br><br>&nbsp;<br><br></td></tr></table><br>