On Feb 10, 2008 1:14 PM, Chaddaï Fouché <[EMAIL PROTECTED]> wrote: > This is much better, though probably better writed : > > addProduct :: [Product] -> Product -> [Product] > > addProduct inventory p > > | elem p inventory = p : inventory > > | otherwise = inventory
Maybe addProduct :: [Product] -> Product -> [Product] addProduct inventory p = p : delete p inventory > and probably even better with a Set instead of a List... import qualified Data.Set as S addProduct :: S.Set Product -> Product -> S.Set Product addProduct = flip S.insert -- Felipe.
_______________________________________________ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe