你如何在Haskell中编写函数'pair'？

Question

对函数需要做这样的事情：

pairs [1, 2, 3, 4] -> [(1, 2), (2, 3), (3, 4)]

Answer 1

pairs [] = []
pairs xs = zip xs (tail xs)

Answer 2

你可以走得那么远

import Control.Applicative (<*>)
pairs = zip <*> tail

但

pairs xs = zip xs (tail xs)

可能更清楚。

Answer 3

仅仅为了完整性，使用显式递归的更“低级”版本：

pairs (x:xs@(y:_)) = (x, y) : pairs xs
pairs _          = []

构造x:xs@(y:_)表示“具有头部x的列表，以及具有至少一个元素y的尾部xs ”。 这是因为y既可以作为当前对的第二个元素，也可以作为下一个元素的第一个元素。 否则，我们必须为长度为1的列表创建一个特例。

pairs [_] = []
pairs []  = []
pairs (x:xs) = (x, head xs) : pairs xs

Answer 4

打电话给连续数字的阿兹特克神：

import Control.Monad (ap)
import Control.Monad.Instances() -- for Monad ((->) a)

foo = zip`ap`tail $ [1,2,3,4]