From: Henning Thielemann <schlepptop@henning-thielemann.de>
Subject: Re: [Haskell-cafe] Cost: (:) vs head
To: "michael rice" <nowgate@yahoo.com>
Cc: haskell-cafe@haskell.org
Date: Sunday, September 12, 2010, 8:47 AM

michael rice schrieb:
> Which of these would be more costly for a long list?
>
> f :: [Int] -> [Int]
> f [x] = [x]
> f (x:xs) = x + (head xs) : f xs
>
> f :: [Int] -> [Int]
> f [x] = [x]
> f (x:y:xs) = x + y : f (y:xs)

What about empty lists? How about
  zipWith (+) xs (drop 1 xs ++ [0]) ?

Since I often need to combine adjacent list elements, I have defined
mapAdjacent in utility-ht.