<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">

<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<style>
<!--
 /* Font Definitions */
 @font-face
        {font-family:Calibri;
        panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
        {font-family:Tahoma;
        panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
        {font-family:Consolas;
        panose-1:2 11 6 9 2 2 4 3 2 4;}
 /* Style Definitions */
 p.MsoNormal, li.MsoNormal, div.MsoNormal
        {margin:0cm;
        margin-bottom:.0001pt;
        font-size:12.0pt;
        font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
        {mso-style-priority:99;
        color:blue;
        text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
        {mso-style-priority:99;
        color:purple;
        text-decoration:underline;}
p.MsoPlainText, li.MsoPlainText, div.MsoPlainText
        {mso-style-priority:99;
        mso-style-link:"Plain Text Char";
        margin:0cm;
        margin-bottom:.0001pt;
        font-size:10.5pt;
        font-family:Consolas;}
span.EmailStyle17
        {mso-style-type:personal-reply;
        font-family:"Calibri","sans-serif";
        color:#1F497D;}
span.PlainTextChar
        {mso-style-name:"Plain Text Char";
        mso-style-priority:99;
        mso-style-link:"Plain Text";
        font-family:Consolas;}
.MsoChpDefault
        {mso-style-type:export-only;}
@page Section1
        {size:612.0pt 792.0pt;
        margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.Section1
        {page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
 <o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
 <o:shapelayout v:ext="edit">
  <o:idmap v:ext="edit" data="1" />
 </o:shapelayout></xml><![endif]-->
</head>

<body lang=EN-GB link=blue vlink=purple>

<div class=Section1>

<p class=MsoPlainText>Thanks Luke, and everyone else. Ok, back to the drawing
board.<o:p></o:p></p>

<p class=MsoPlainText>Paul<o:p></o:p></p>

<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p>&nbsp;</o:p></span></p>

<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p>&nbsp;</o:p></span></p>

<div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm'>

<p class=MsoNormal><b><span lang=EN-US style='font-size:10.0pt;font-family:
"Tahoma","sans-serif"'>From:</span></b><span lang=EN-US style='font-size:10.0pt;
font-family:"Tahoma","sans-serif"'> Luke Palmer [mailto:lrpalmer@gmail.com] <br>
<b>Sent:</b> 19 December 2008 16:44<br>
<b>To:</b> Paul Keir<br>
<b>Cc:</b> haskell-cafe@haskell.org<br>
<b>Subject:</b> Re: [Haskell-cafe] forkIO on multicore[MESSAGE NOT SCANNED]<o:p></o:p></span></p>

</div>

<p class=MsoNormal><o:p>&nbsp;</o:p></p>

<p class=MsoNormal>On Fri, Dec 19, 2008 at 9:27 AM, Paul Keir &lt;<a
href="mailto:pkeir@dcs.gla.ac.uk">pkeir@dcs.gla.ac.uk</a>&gt; wrote:<o:p></o:p></p>

<div>

<blockquote style='border:none;border-left:solid #CCCCCC 1.0pt;padding:0cm 0cm 0cm 6.0pt;
margin-left:4.8pt;margin-right:0cm'>

<p class=MsoNormal>module Main where<br>
<br>
import Control.Concurrent<br>
<br>
fibs = 0 : 1 : zipWith (+) fibs (tail fibs)<br>
<br>
heavytask m = putMVar m (fibs !! 100000)<o:p></o:p></p>

</blockquote>

<div>

<p class=MsoNormal><br>
Oh, also, heavytask is not very heavy at all.&nbsp; It just writes the thunk
(fibs !! 100000) into the MVar.&nbsp; Not a single number is added in this
thread.<br>
<br>
You probably meant to have the thread evaluate its argument _before_ writing it
to the variable:<br>
<br>
heavytask m = putMVar m $! (fibs !! 100000)<br>
<br>
(Or more transparently)<br>
<br>
heavytask m = let answer = fibs !! 100000 in answer `seq` putMVar m answer<br>
<br>
But as per my other comments, you will not see a speedup (in fact, you will
probably see some slowdown as two threads compete to compute the same value).<br>
<br>
Luke<br>
&nbsp;<o:p></o:p></p>

</div>

<blockquote style='border:none;border-left:solid #CCCCCC 1.0pt;padding:0cm 0cm 0cm 6.0pt;
margin-left:4.8pt;margin-right:0cm'>

<p class=MsoNormal><br>
<br>
main = do ms &lt;- sequence $ replicate 2 newEmptyMVar<br>
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;mapM_ (forkIO . heavytask) $ tail ms<br>
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;heavytask $ head ms<br>
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;ms' &lt;- mapM takeMVar ms<br>
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;mapM_ print ms'<br>
<br>
Regards,<br>
Paul<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><o:p></o:p></p>

</blockquote>

</div>

<p class=MsoNormal><o:p>&nbsp;</o:p></p>

</div>

</body>

</html>