2006-04-29から1日間の記事一覧
ちょっと大げさか。cf. OSS WEB|ossz|oneline|2006-04-28 tr :: [Char] -> [Char] -> (String -> String) tr set1 set2 = map trans where trans = foldl (flip $ uncurry add) id (zip set1 set2) add k v s q | k == q = v | otherwise = s qこれがちゃん…
ちょっと大げさか。cf. OSS WEB|ossz|oneline|2006-04-28 tr :: [Char] -> [Char] -> (String -> String) tr set1 set2 = map trans where trans = foldl (flip $ uncurry add) id (zip set1 set2) add k v s q | k == q = v | otherwise = s qこれがちゃん…