#include "fusion-phases.h"
module Data.Array.Parallel.Unlifted.Sequential.Sums
( andSU, orSU
, sumSU, sumRU
, productSU
, maximumSU, minimumSU)
where
import Data.Array.Parallel.Unlifted.Sequential.Vector as V
import Data.Array.Parallel.Unlifted.Sequential.USegd
import Data.Array.Parallel.Unlifted.Sequential.Combinators
andSU :: USegd -> Vector Bool -> Vector Bool
andSU = foldSU (&&) True
orSU :: USegd -> Vector Bool -> Vector Bool
orSU = foldSU (||) False
sumSU :: (Num e, Unbox e) => USegd -> Vector e -> Vector e
sumSU = foldSU (+) 0
productSU :: (Num e, Unbox e) => USegd -> Vector e -> Vector e
productSU = foldSU (*) 1
maximumSU :: (Ord e, Unbox e) => USegd -> Vector e -> Vector e
maximumSU = fold1SU max
minimumSU :: (Ord e, Unbox e) => USegd -> Vector e -> Vector e
minimumSU = fold1SU min
sumRU :: (Num e, Unbox e) => Int ->Vector e -> Vector e
sumRU = foldlRU (+) 0