Almost alphabetical by shinh

f(a:t@(b:c:_))|a>b&&a>c=a|a>b=b|1>0=f t
m@main=getLine>>=(\l->putStrLn[f$l++"z"])>>m

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