uniq chars divide by 

m@main=getLine>>=putStrLn.f"""">>m
r=reverse
f b[][]=r b
f b g[]=r b++f"/"""(r g)
f b g(a:s)|a`elem`b=f b(a:g)s|0<1=f(a:b)g s

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page