David Tran’s blog

addPairsPointwise :: Num a => [(a,a)] -> (a,a)
addPairsPointwise [] = (0,0)
addPairsPointwise ((x,y):ps) = (x+xs, y+ys)
  where (xs,ys) = addPairsPointwise ps

addPairsPointwise' :: Num a => [(a,a)] -> (a,a)
addPairsPointwise' = foldl (\(x1,y1) (x2,y2) -> (x1+x2, y1+y2)) (0,0)

This entry was posted on Tuesday, May 22nd, 2007 at 12:28 pm and is filed under Haskell - SOE. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.