Erlang Adjacent Elements Product
-module(adjacent_elements_product).
-export([adjacent_elements_product/1]).
adjacent_elements_product(InputArray) ->
Pairs = lists:zip(InputArray, tl(InputArray)),
lists:max([X * Y || {X, Y} <- Pairs]).
This walks through neighboring values, multiplies each pair, and keeps the biggest product it finds.