fork download
copy 
  1. main = do 
  2.   putStr $ "brad" ! "angelina\n";
  3.   putStr $ "programming" ! "puzzle\n";
  4.   putStr $ "out" ! "go"
  5.  
  6. v x=elem x"aeiou"
  7. d=dropWhile
  8. e=d v
  9. k=d$not.v
  10. r=reverse
  11. f a|c<-e.k.e.k$a,""/=c=c|1<3=e.k$a
  12. a!b=(r.f.r)a++k b
Success #stdin #stdout 0s 4700KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
brangelina
progruzzle
o
https://ideone.com/REZWtG
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!