Custom Query (35 matches)
Results (28 - 30 of 35)
Ticket | Resolution | Summary | Owner | Reporter |
---|---|---|---|---|
#16 | fixed | Split ByteString fns into a separate package. | ||
Description |
to remove "fake" dependencies on the main library. |
|||
#2 | fixed | Split core algorithms of examples into repa-algorithms package. | ||
Description |
Especially the FFT algorithm, as it's generally useful. |
|||
#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.