haskell:如何获得起始列表中高于其邻居的数字列表

getHigherNeighbors :: [Int] -> [Int]
getHigherNeighbors [] = [] -- 空列表的情况
getHigherNeighbors [x] = [] -- 只有一个元素的情况
getHigherNeighbors (x:y:z:xs)
  | y > x && y > z = y : getHigherNeighbors (y:z:xs) -- y大于其邻居的情况
  | otherwise = getHigherNeighbors (y:z:xs) -- y不大于其邻居的情况

main :: IO ()
main = do
  let inputList = [1, 3, 2, 5, 4, 7, 6]
  let result = getHigherNeighbors inputList
  putStrLn $ "Result: " ++ show result