fork(2) download
copy 
  1. l=length
  2. g[]n u=map(\_->"")n
  3. g(b:c)[]u=(u++c):g c[]u
  4. g(b:c)n@(o:p)u|b==o=g c p(u++[o])|1<2=((u++o:c):g c p(u++[o]))!((u++c):g c n u)
  5. a!b|l a<l b=a|1<2=b
  6. p[a,n]=g a n""
  7. main=interact$unlines.p.lines
Success #stdin #stdout 0s 4612KB
comments ()
stdin
copy 
rwerwr
wcrw
stdout
copy 
werwr
wcrwr
wcrw
https://ideone.com/CUgU8W
language:
Haskell (ghc 8.4.4)
created:
9 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!