Как заменить подстроку строки на другую в Haskell без использования внешних библиотек, таких как MissingH?

Question

Я хотел бы заменить подстроку строкой в ​​Haskell, не используя внешние библиотеки, и, если возможно, с хорошей производительностью.

Я думал об использовании функций замены Data.Text, но я не хочу переносить всю мою программу, чтобы использовать тип Text вместо Strings. Упаковал бы String в значение Text, а затем заменил бы то, что хотел, а затем распаковал, чтобы значение текста до String было медленным на множестве Strings?

Answer 1

Попробуйте это (непроверенные):

replace :: Eq a => [a] -> [a] -> [a] -> [a] 
replace needle replacement haystack 
    = case begins haystack needle of 
     Just remains -> replacement ++ remains 
     Nothing  -> case haystack of 
         []  -> [] 
         x : xs -> x : replace needle replacement xs 

begins :: Eq a => [a] -> [a] -> Maybe [a] 
begins haystack []    = Just haystack 
begins (x : xs) (y : ys) | x == y = begins xs ys 
begins _  _     = Nothing 

Но в целом вы получите прирост производительности от перехода вашей программы использовать Text с вместо String с.