ふつける練習問題その3
1 --- 標準入力から読み込んだ 'a'と'A'を入れ替えるコマンド swapA 2 import System 3 4 main = do cs <- getArgs 5 print $ map swapA (concat cs) 6 7 swapA :: Char -> Char 8 swapA 'a' = 'A' 9 swapA 'A' = 'a' 10 swapA c = c
1 --- 標準入力から読み込んだ 'a'と'A'を入れ替えるコマンド swapA 2 import System 3 4 main = do cs <- getArgs 5 print $ map swapA (concat cs) 6 7 swapA :: Char -> Char 8 swapA 'a' = 'A' 9 swapA 'A' = 'a' 10 swapA c = c