|
|
||
とりあえず自分でも出来そうな問題を解いてみる。
ええと、...(思案中)...
-AAAAA -> -Aaaaa
ええと文字列の先頭とハイフンの直後の文字が大文字になってあとは小文字か。
よし、こうかな?
import Char capitalize str = zipWith f ('-':str) str where f '-' = toUpper f _ = toLower main = do print $ capitalize "in-reply-to" print $ capitalize "X-MAILER"
よしよし、なんだかうまく動いているっぽい。
akira2012/01/17 10:29一瞬わかんなかった. うまいですね.