Haskell Adjacent Elements Product
adjacentElementsProduct :: [Int] -> Int
adjacentElementsProduct inputArray = maximum (zipWith (*) inputArray (tail inputArray))
This walks through neighboring values, multiplies each pair, and keeps the biggest product it finds.