Seasons.NET

ちょっとした技術ブログです

ふつける練習問題その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