Reputation: 53552

How do you write the function 'pairs' in Haskell?

The pairs function needs to do something like this:

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

Upvotes: 20

Answers (4)

barsoap

Reputation: 3376

Call to the Aztec god of consecutive numbers:

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

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

Upvotes: 2

Edward Kmett

Reputation: 29982

You could go as far as

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

but

pairs xs = zip xs (tail xs)

is probably clearer.

Upvotes: 21

Chuck

Reputation: 237110

Just for completeness, a more "low-level" version using explicit recursion:

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

The construct x:xs@(y:_) means "a list with a head x, and a tail xs that has at least one element y". This is because y doubles as both the second element of the current pair and the first element of the next. Otherwise we'd have to make a special case for lists of length 1.

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

Upvotes: 6

Dietrich Epp

Reputation: 213837

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

Upvotes: 44

How do you write the function &#39;pairs&#39; in Haskell?

Answers (4)

Related Questions

How do you write the function 'pairs' in Haskell?