by@wass80
WA
1099ms
import Data.List import Control.Monad main = do x<-i y<-i let u=[r x c] in putStr$intercalate "\n"$u++r (y-2) ([c]++r (x-2) ' '++[c])++u where i=liftM read getLine::IO Int c='*' r=replicate
52 72
**************************************************** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ****************************************************