Custom Query (35 matches)

Filters
 
Or
 
  
 
Columns

Show under each result:


Results (4 - 6 of 35)

1 2 3 4 5 6 7 8 9 10 11 12
Ticket Resolution Summary Owner Reporter
#29 wontfix Update edge detection demo for OSX lion, GHC 7.4 and Repa 3 Ben Lippmeier
#24 fixed Unneeded Elt constraint in type of traverse functions Ben Lippmeier
Description

traverse2 has an Elt constraint for the element type of the result array, but plain traverse doesn't.

#33 fixed Unboxing problems in example from Stack Overflow Ben Lippmeier
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
1 2 3 4 5 6 7 8 9 10 11 12
Note: See TracQuery for help on using queries.