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

полет фантазии

[huzhepidarasa.livejournal.com]

pairwise xs = uncurry zip $ pairmap (map snd) $ partition fst $ zip (cycle [True, False]) xs
  where pairmap f (x,y) = (f x, f y)

хотел без рекурсии и не определяя никаких вспомогательных ф-й, но не вышло

Re: полет фантазии

[huzhepidarasa.livejournal.com]

объединяя с предыдущей идеей

pairwise xs = map snd $ filter fst $ zip (cycle [True, False]) $ zip xs (tail xs)

Re: полет фантазии

[ivan-gandhi.livejournal.com]

О! cycle приходит на помощь!

Re: полет фантазии

[nivanych.livejournal.com]

Прикольная идея ;-)