Hi Jeff <br>Thanks for the tip. Now its working but scaling is not good. <br><font style="font-family:courier new,monospace" size="1">[mukesh.tiwari@pg155-n3 ParallelStrat]$ time ./Main +RTS -N1 <br>1000001<br><br>real    0m0.591s<br>
user    0m0.517s<br>sys    0m0.060s</font><br><br><font style="font-family:courier new,monospace" size="1">[mukesh.tiwari@pg155-n3 ParallelStrat]$ time ./Main +RTS -N2 -s<br>1000001<br>     618,757,264 bytes allocated in the heap<br>
     197,678,448 bytes copied during GC<br>      34,481,184 bytes maximum residency (11 sample(s))<br>      19,652,184 bytes maximum slop<br>              88 MB total memory in use (0 MB lost due to fragmentation)<br><br>
                                    Tot time (elapsed)  Avg pause  Max pause<br>  Gen  0       670 colls,   669 par    0.28s    0.21s     0.0003s    0.0015s<br>  Gen  1        11 colls,    11 par    0.36s    0.25s     0.0225s    0.0523s<br>
<br>  <b>Parallel GC work balance: 1.14 (24701953 / 21591478, ideal 2)</b><br><br>                        MUT time (elapsed)       GC time  (elapsed)<br>  Task  0 (worker) :    0.17s    (  0.09s)       0.64s    (  0.46s)<br>
  Task  1 (worker) :    0.81s    (  0.56s)       0.00s    (  0.00s)<br>  Task  2 (bound)  :    0.16s    (  0.10s)       0.64s    (  0.46s)<br>  Task  3 (worker) :    0.81s    (  0.56s)       0.00s    (  0.00s)<br><br>  SPARKS: 2 (2 converted, 0 overflowed, 0 dud, 0 GC&#39;d, 0 fizzled)<br>
<br>  INIT    time    0.00s  (  0.00s elapsed)<br>  MUT     time    0.17s  (  0.10s elapsed)<br>  GC      time    0.64s  (  0.46s elapsed)<br>  EXIT    time    0.00s  (  0.00s elapsed)<br>  Total   time    0.80s  (  0.56s elapsed)<br>
<br>  Alloc rate    3,705,754,641 bytes per MUT second<br><br>  Productivity  20.7% of total user, 30.1% of total elapsed<br><br>gc_alloc_block_sync: 12718<br>whitehole_spin: 0<br>gen[0].sync: 0<br>gen[1].sync: 0</font><br>
<br><font size="1"><span style="font-family:courier new,monospace">real    0m0.575s</span><br style="font-family:courier new,monospace"><span style="font-family:courier new,monospace">user    0m0.805s</span><br style="font-family:courier new,monospace">
<span style="font-family:courier new,monospace">sys    0m0.300s</span></font><br><br>Regards <br>Mukesh Tiwari<br><br><div class="gmail_quote">On Thu, Apr 19, 2012 at 6:56 AM, Jeff Shaw <span dir="ltr">&lt;<a href="mailto:shawjef3@msu.edu">shawjef3@msu.edu</a>&gt;</span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hello Mukesh Tiwari,<br>
I&#39;m wondering what happens if you replace &quot;return ()&quot; with &quot;print (last xs)&quot;.<br>
<br>
Jeff<br>
<br>
______________________________<u></u>_________________<br>
Haskell-Cafe mailing list<br>
<a href="mailto:Haskell-Cafe@haskell.org" target="_blank">Haskell-Cafe@haskell.org</a><br>
<a href="http://www.haskell.org/mailman/listinfo/haskell-cafe" target="_blank">http://www.haskell.org/<u></u>mailman/listinfo/haskell-cafe</a><br>
</blockquote></div><br>