编辑代码

main = putStrLn(show [(x,y,z)|x<-[0..9], y<-[0..9], z<-[0..9], x*10+x+y*10+y+z*10+z == x*100+y*10+z])