gistfile1.hs

sfold :: (Shape ix, Elt a) => (Exp a -> Exp a -> Exp a) -> Exp a -> Acc (Array ix a) -> Exp a
sfold f i a = let
                    iteratefunc :: (Elt a, Shape ix) => (Exp a -> Exp a -> Exp a) -> Exp a -> Acc (Array ix a) ->    Exp Int -> Exp a
                    iteratefunc f i ar idx = let new = f i (ar A.!! idx) in
                                    (idx <* (size ar) - 1) ? ((f new (iteratefunc f new ar (idx+1))), new)
--                                    new

              in
                    iteratefunc f i a $ constant 0