import Data.Char choices = let capital = toUpper . head in do l <- getLine let initial = capital l remaining <- choices return (initial : remaining) main = do inputs <- choices mapM (putStrLn . (:"Q")) inputs
import Data.Char choices = let capital = toUpper . head in do l <- getLine let initial = capital l remaining <- choices return (initial : remaining) main = do inputs <- choices mapM (putStrLn . (:"Q")) inputs
Comments
0 B
|👍
/👎
0 B
|👍
/👎