05/10/10 12:47:07
行数制限が気になって、雑になりました。
>>183 SPJ氏について
サンクス、自分専門ではないもので助かります。
downcase :: !String -> String
downcase str = {toLower x\\x<-:str}
upcase :: !String->String
upcase str = {toUpper x\\x <-:str}
stringJoin:: ![String] !String -> String
stringJoin [x:xs] c = x +++ (join` xs)
where join`:: [String] -> String
join` [] = ""
join` [x:xs] = c +++ x +++ join` xs
stringJoin [] _ = ""
ライブラリはよく吟味した上で一元管理がよさそう