fork download
copy 
  1. main = mapM_ print $ combinations [["England"],["London","Liverpool"],["DG300","SS500"]]
  2.  
  3. combinations :: [[String]] -> [[String]]
  4. combinations []     = [[]]
  5. combinations (x:xs) = do
  6.     ys <- combinations xs
  7.     y <- x
  8.     return (y:ys)
Success #stdin #stdout 0s 8388607KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
["England","London","DG300"]
["England","Liverpool","DG300"]
["England","London","SS500"]
["England","Liverpool","SS500"]
https://ideone.com/DsDfY6
language:
Haskell (ghc 8.4.4)
created:
8 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!