単語の削除

Haskell, 30分プログラム |

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

参考

• 過去の30分プログラム

ツイートする