how to say in Haskell...

[juan_gandhi]

pairwise :: [a] →  [(a, a)]
pairwise [] = []
pairwise (x:y:rest) = (x,y) : pairwise rest

is there something that does it already? Could not figure out.

Comments

[nivanych.livejournal.com]

Описался. Конечно же,
pairwise lst = takeNth 2 $ zip lst (tail lst)

[vyahhi.livejournal.com]

Да, даже длиннее получилось :(

[nivanych.livejournal.com]

Зато более универсально.
Это самое takeNth может ещё где-то потребоваться.

[nivanych.livejournal.com]

Там вон снизу прикольную идею с cycle высказали.
На той же идее
takeNth n lst = map fst $ filter (\(x,t)-> t == 1) $ zip lst $ cycle [1..n]
Но по-моему, это уже извраты,
которые непонятно, для чего нужны,
кроме как, сэкономить лишнюю строчку.
Лучше писать тупо и понятно,
потом свой же код проще смотреть.