<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;">Cool. Everything's there but the N.<br><br>Learning Haskell is a lot like learning to dance.<br><br>Michael<br><br><br>--- On <b>Sun, 7/25/10, Ozgur Akgun <i><ozgurakgun@gmail.com></i></b> wrote:<br><blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><br>From: Ozgur Akgun <ozgurakgun@gmail.com><br>Subject: Re: [Haskell-cafe] Random this! ;-)<br>To: "Max Rabkin" <max.rabkin@gmail.com><br>Cc: "michael rice" <nowgate@yahoo.com>, haskell-cafe@haskell.org<br>Date: Sunday, July 25, 2010, 3:17 PM<br><br><div id="yiv1297628378">Sorry but I'll just go ahead and eta reduce it :)<br><br>rollNDiceIO = flip replicateM $ randomRIO (1,6)<br><br><div class="yiv1297628378gmail_quote">On 25 July 2010 16:44, Max Rabkin <span dir="ltr"><<a rel="nofollow" ymailto="mailto:max.rabkin@gmail.com" target="_blank"
href="/mc/compose?to=max.rabkin@gmail.com">max.rabkin@gmail.com</a>></span> wrote:<br>
<blockquote class="yiv1297628378gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;"><div class="yiv1297628378im">On Sun, Jul 25, 2010 at 5:39 PM, michael rice <<a rel="nofollow" ymailto="mailto:nowgate@yahoo.com" target="_blank" href="/mc/compose?to=nowgate@yahoo.com">nowgate@yahoo.com</a>> wrote:<br>
><br>
> I know, ugly, but at least I got it to work. What's a better way to generate this list?<br>
<br>
</div>rollNDiceIO n<br>
= sequence . replicate n $ randomRIO (1,6)<br>
{{ sequence . replicate n = replicateM n }}<br>
= replicateM n $ randomRIO (1, 6)<br>
<font color="#888888"><br>
--Max<br>
</font><div><div></div><div class="yiv1297628378h5">_______________________________________________<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>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Ozgur Akgun<br>
</div></blockquote></td></tr></table><br>