標準入力の'a'と'A'を入れ替えるコマンドの作成。 main = do cs <- getContents putStr $ changea cs changea :: String -> String changea cs = map swapa cs swapa :: Char -> Char swapa 'a' = 'A' swapa 'A' = 'a' swapa c = c このように作りました。回…