fork download
copy 
  1. main = print $ skipBigram ["Colorless", "green", "ideas", "sleep", "furiously"]
  2.  
  3. skipBigram :: [a] -> [(a,a)]
  4. skipBigram     [] = [] -- nothing to do with an empty list
  5. skipBigram (x:xs) = [(x,y) | y <- xs] ++ skipBigram xs
Success #stdin #stdout 0s 4692KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[("Colorless","green"),("Colorless","ideas"),("Colorless","sleep"),("Colorless","furiously"),("green","ideas"),("green","sleep"),("green","furiously"),("ideas","sleep"),("ideas","furiously"),("sleep","furiously")]
https://ideone.com/ywn1S8
language:
Haskell (ghc 8.4.4)
created:
10 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!