-- $Id: AccList.hs,v 1.1 2001/09/06 02:12:55 hallgren Exp $
module AccList (accList) where accList acc [] ans = ans accList acc (x:xs) ans = accList acc xs (acc x ans) -- LEFT-TO-RIGHT here -- Property: accList == flip . foldl . flip