来自haskell列表的连续对

Question

如何在没有递归的情况下从列表中获取连续对（元组）的列表？

例如：[1, 2, 3, 4]为[(1, 2), (2, 3), (3, 4)]

Answer 1

\xs -> zip xs $ tail xs或zip <*> tail。