Custom Query (35 matches)

Filters
 
Or
 
  
 
Columns

Show under each result:

Results (28 - 30 of 35)

← 1 2 3 4 5 6 7 8 9 10 11 12 →
Ticket Resolution Summary Owner Reporter
#16 fixed Split ByteString fns into a separate package. Ben Lippmeier
Description

to remove "fake" dependencies on the main library.

#2 fixed Split core algorithms of examples into repa-algorithms package. Ben Lippmeier
Description

Especially the FFT algorithm, as it's generally useful.

#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.