Longest Palindrome by Icewing

h#(x:a)=zipWith(:)a h#a++h
h#x=[]
g a=map(:[])a#a
m@main=getLine>>=putStrLn.head.filter(\x->x==reverse x).g>>m

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

download

return to the top page