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