Repository : ssh://darcs.haskell.org//srv/darcs/packages/dph On branch : master
http://hackage.haskell.org/trac/ghc/changeset/d6f41da37f75169382cfdaad75b9c36716807ee2 >--------------------------------------------------------------- commit d6f41da37f75169382cfdaad75b9c36716807ee2 Author: Ben Lippmeier <[email protected]> Date: Tue May 3 16:51:46 2011 +1000 Fix reverse example >--------------------------------------------------------------- dph-examples/imaginary/Reverse/dph/Main.hs | 1 + .../imaginary/Reverse/dph/ReverseVectorised.hs | 3 +-- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/dph-examples/imaginary/Reverse/dph/Main.hs b/dph-examples/imaginary/Reverse/dph/Main.hs index ea1b886..7e024c3 100644 --- a/dph-examples/imaginary/Reverse/dph/Main.hs +++ b/dph-examples/imaginary/Reverse/dph/Main.hs @@ -45,6 +45,7 @@ run "vector" count $ let arr' = RV.treeReverse arr in arr' `seq` return arr' + print arrReversed putStr $ prettyTime tElapsed run _ _ diff --git a/dph-examples/imaginary/Reverse/dph/ReverseVectorised.hs b/dph-examples/imaginary/Reverse/dph/ReverseVectorised.hs index 48bad33..cd8410f 100644 --- a/dph-examples/imaginary/Reverse/dph/ReverseVectorised.hs +++ b/dph-examples/imaginary/Reverse/dph/ReverseVectorised.hs @@ -25,6 +25,5 @@ treeReverse xx = let len = lengthP xx half = len `div` 2 s1 = sliceP 0 half xx - s2 = sliceP half len xx + s2 = sliceP half half xx in concatP (mapP treeReverse [: s2, s1 :]) - _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
