Hi, all

Below is my solution to SPOJ->Polybius square

Please try to shorten it:

import Data.Maybe

d=[1..5]

f s=unwords$map(\c->fromJust$lookup c((' ',""):('J',"24"):zip(['A'..'I']++['K'..'Z'])[show(x+10*y)|y<-d,x<-d]))s

main=getLine>>(interact$unlines.map f.lines)

Thanks, Nadav