Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 5ea4d40ebc
Fetching contributors…

Cannot retrieve contributors at this time

10 lines (7 sloc) 0.277 kb
import Data.Array.Accelerate as Acc
import Data.Array.Accelerate.Repa as Repa
sasumAcc :: Vector Float -> Acc (Scalar Float)
sasumAcc xs
= Acc.fold (+) 0 . Acc.map abs $ Acc.use xs
main = do
putStrLn $ Repa.run $ sasumAcc $ (fromList (Z:.10) [1,-1,1,-1,1,-1,1,-1,1,-1])
Jump to Line
Something went wrong with that request. Please try again.