<div dir="ltr"><span style="font-family: courier new,monospace;">main :: IO ()</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">main = do</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">&nbsp; as &lt;- getArgs</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">&nbsp; mt &lt;- newPureMT</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">&nbsp; let colors = randomRs (lo,hi) mt :: [RGB]</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">&nbsp; print $ zip tx cs</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">&nbsp; where</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">&nbsp;&nbsp;&nbsp; lo = read $ as !! 0</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">&nbsp;&nbsp;&nbsp; hi = read $ as !! 1</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">&nbsp;&nbsp;&nbsp; tx =&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; as !! 2</span><br><font face="arial,helvetica,sans-serif"><br>
Why is as not visible in the where block?<br></font><br><div class="gmail_quote">2008/9/13 Brandon S. Allbery KF8NH <span dir="ltr">&lt;<a href="mailto:allbery@ece.cmu.edu">allbery@ece.cmu.edu</a>&gt;</span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><div></div><div class="Wj3C7c">On 2008 Sep 12, at 21:57, Don Stewart wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
cetin.sert:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
 &nbsp; &nbsp;random &nbsp;= color2<br>
 &nbsp; &nbsp;randomR = colorR<br>
<br>
 &nbsp;color2 :: RandomGen g .$B&quot;M.(B g .$B&quot;*.(B (RGB,g)<br>
 &nbsp;color2 = colorR (minRGB,maxRGB)<br>
<br>
 &nbsp;color :: RandomGen g .$B&quot;M.(B g .$B&quot;*.(B (RGB,g)<br>
 &nbsp;color s0 = ((r,g,b),s3)<br>
 &nbsp; &nbsp;where<br>
</blockquote>
<br>
There&#39;s some corruption in this text. Could you post the file somewhere?<br>
</blockquote>
<br></div></div>
It&#39;s not corrupt; he used UTF-8 symbols. &nbsp;It shows up properly in Mail.app but doesn&#39;t quote right (admittedly I force plaintext).<br><font color="#888888">
<br>
-- <br>
brandon s. allbery [solaris,freebsd,perl,pugs,haskell] <a href="mailto:allbery@kf8nh.com" target="_blank">allbery@kf8nh.com</a><br>
system administrator [openafs,heimdal,too many hats] <a href="mailto:allbery@ece.cmu.edu" target="_blank">allbery@ece.cmu.edu</a><br>
electrical and computer engineering, carnegie mellon university &nbsp; &nbsp;KF8NH<br>
<br>
<br>
</font></blockquote></div><br></div>