Skip to content

Instantly share code, notes, and snippets.

@robstewart57

robstewart57/accelerate-example.hs

Created September 29, 2015 13:59
Show Gist options
  • Save robstewart57/a154d79879eca8300836 to your computer and use it in GitHub Desktop.
Save robstewart57/a154d79879eca8300836 to your computer and use it in GitHub Desktop.
Download ZIP
A simple GPU program
Raw
accelerate-example.hs
main = do
let a = enumFromN (index2 2 3) 1 :: Acc (Array DIM2 Int)
let b = enumFromStepN (index2 2 3) 6 (-1) :: Acc (Array DIM2 Int)
run $ A.zipWith (+) a b
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment