Hatena::ブログ(Diary)

みずぴー日記 Twitter

2010-08-11(水)

単語の削除

| 単語の削除を含むブックマーク

30分プログラム、その792。anarchy golf - delete wordsインスパイアされました。

使い方

*Main> deleteWord "golf" "flogwaiurhgm"
"    waiurh m"

ソースコード

replace :: Eq a => a -> a -> [a] -> [a]

replace _ _ [] = []
replace old new (x:xs) =
    if old == x then
        new : replace old new xs
    else
        x : replace old new xs

deleteWord :: String -> String -> String
deleteWord xs ys =
    foldr (\x str -> replace x ' ' str) ys xs

参考

トラックバック - http://d.hatena.ne.jp/mzp/20100811/deleteWord