Come si scrive la funzione 'coppie' in Haskell?

Question

La funzione coppie ha bisogno di fare qualcosa di simile:

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

Answer 1

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

Answer 2

Solo per completezza, una versione più "a basso livello" con esplicito ricorsione:

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

Il costrutto x:xs@(y:_) mezzi " un elenco con una testa x e una coda xs con almeno un elemento ". Questo perché raddoppia come sia il secondo elemento della coppia corrente sia il primo elemento del successivo. In caso contrario, avremmo dovuto fare un caso speciale per liste di lunghezza 1.

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

Answer 3

Si potrebbe andare per quanto

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

ma

pairs xs = zip xs (tail xs) 

è probabilmente più chiara.

Answer 4

Chiama per il dio azteco di numeri consecutivi:

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

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