expandA関数の定義の部分で"expandA"を"expadnA"とミスタイプしちゃったのにコンパイル通っちゃった。どうしてだろう?とりあえず自分の解答。
- expandA.hs
main = do cs <- getContents putStr $ expand cs expand :: String -> String expand cs = map expandA cs expandA :: Char -> Char expandA 'A' = 'a' expandA 'a' = 'A' expandA c = c