fork download 
  1. import Control.Arrow
  2. triangulate (x:a:b:xs) = scanl (curry (snd *** id)) (a, b) xs
  3. main = print $ triangulate $ [1, 2, 3, 4, 5]
Success #stdin #stdout 0.02s 3592KB
comments (?)
stdin 
Standard input is empty
stdout 
[(2,3),(3,4),(4,5)]
https://ideone.com/l7Ch5
language:
Haskell (ghc 8.4.4)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!