Haskell alle besonderen Zeichen mit einem Eingabezeichen ersetzen

Question

Hier ist mein Code

partialDecode :: Char->Char->[Char] -> [Char] 
partialDecode _ _ [] = [] 
partialDecode a b (x:xs) = map (\(b) -> (u2Lo a)) (x:xs) 

Meine Funktion in 2-Zeichen im Grunde nimmt a und b und eine Zeichenfolge, ersetzt dann alle b in dieser Zeichenfolge durch a. Beachtet, dass alle Eingaben in Kleinbuchstaben sind, macht die u2Lo Funktion nur das Ersetzen a der Ausgabezeichenfolge in Kleinbuchstaben. Irgendwie gibt diese Funktion eine Zeichenfolge aus allen Großbuchstaben a zurück.

Answer 1

Die Implementierung der Funktion liest sich ähnlich wie Ihre Beschreibung. go gibt replace zurück, wenn sein Argument gleich search ist; Andernfalls wird das Argument direkt zurückgegeben. Wir wenden einfach go auf jedes Element in der Liste unter Verwendung map an.

replace :: Eq a => a -> a -> [a] -> [a] 
replace search replace = map go 
    where go x 
      | x == search = replace 
      | otherwise = x