Custom Query (35 matches)
Results (4 - 6 of 35)
Ticket | Resolution | Summary | Owner | Reporter |
---|---|---|---|---|
#29 | wontfix | Update edge detection demo for OSX lion, GHC 7.4 and Repa 3 | ||
#24 | fixed | Unneeded Elt constraint in type of traverse functions | ||
Description |
|
|||
#33 | fixed | Unboxing problems in example from Stack Overflow | ||
Description |
import Data.Array.Repa arr :: Array U DIM2 Int arr = fromListUnboxed (Z :. 5 :. 5) [1..25] combined :: Array U DIM2 Int combined = computeP $ traverse arr (\_ -> Z :. 4 :. 4 :: DIM2) $ \f (Z :. x :. y) -> sumAllS $ extract f (x,y) (2,2) extract :: (DIM2 -> Int) -> (Int,Int) -> (Int,Int) -> Array D DIM2 Int extract lookup (x0,y0) (width,height) = fromFunction bounds $ \sh -> offset lookup sh where bounds = Z :. width :. height offset :: (DIM2 -> Int) -> DIM2 -> Int offset f (Z :. x :. y) = f (Z :. x + x0 :. y + y0) main = print combined |
Note: See TracQuery
for help on using queries.