Wie schreibt man die Funktion "Paare" in Haskell?

Question

Die Funktion Paare muss in etwa so funktionieren:

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

Answer 1

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

Answer 2

Sie könnten so weit gehen wie

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

sondern

pairs xs = zip xs (tail xs)

ist wahrscheinlich klarer.

Answer 3

Nur der Vollständigkeit halber eine "einfachere" Version mit expliziter Rekursion:

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

Das Konstrukt x:xs@(y:_) bedeutet "eine Liste mit einem Kopf x und einen Schwanz xs die mindestens ein Element enthält y ". Der Grund dafür ist y verdoppelt sowohl das zweite Element des aktuellen Paares als auch das erste Element des nächsten Paares. Andernfalls müssten wir einen Sonderfall für Listen der Länge 1 schaffen.

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

Answer 4

Aufruf an den aztekischen Gott der fortlaufenden Zahlen:

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

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