fork(1) download
copy 
  1. g(a:b:c)|a==b=g c
  2. g x=x==[]
  3. f=any(g.words.concat).mapM(\c->[[c],c:" "])
  4.  
  5. main = print $ map f ["a", -- False
  6.                       "aa", -- True
  7.                       "baab", -- False
  8.                       "abaaba", -- True
  9.                       "bbababbb", -- True
  10.                       "babababa", -- True
  11.                       "abaabaaba", -- False
  12.                       "aaaaabbaaaaa", -- False
  13.                       "bbbbbbbbbbbb", -- True
  14.                       "baababbabaaaab", -- False
  15.                       "bbbbbbbbbbbbbbb"] -- False
Success #stdin #stdout 0.02s 5728KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[False,True,False,True,True,True,False,False,True,False,False]
https://ideone.com/VqybtA
language:
Haskell (ghc 8.4.4)
created:
7 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!