Wie Liste von Wörtern aus Strings entfernen

Question

Was würde ich (in Clojure) zu tun:

Zum Beispiel habe ich einen Vektor von Wörtern, die entfernt werden müssen:

(def forbidden-words [":)" "the" "." "," " " ...many more...]) 

.. . und ein Vektor von Strings:

(def strings ["the movie list" "this.is.a.string" "haha :)" ...many more...]) 

So soll jedes verbotenes Wort aus jeder Zeichenfolge entfernt werden, und das Ergebnis wäre in diesem Fall sein: [ „Filmliste“ „thisisastring“ „haha“].

Wie geht das?

Answer 1

(def forbidden-words [":)" "the" "." ","]) 
(def strings ["the movie list" "this.is.a.string" "haha :)"]) 
(let [pattern (->> forbidden-words (map #(java.util.regex.Pattern/quote %)) 
       (interpose \|) (apply str))] 
    (map #(.replaceAll % pattern "") strings)) 

Answer 2

(use 'clojure.contrib.str-utils) 
(import 'java.util.regex.Pattern) 
(def forbidden-words [":)" "the" "." "," " "]) 
(def strings ["the movie list" "this.is.a.string" "haha :)"]) 
(def regexes (map #(Pattern/compile % Pattern/LITERAL) forbidden-words)) 
(for [s strings] (reduce #(re-gsub %2 "" %1) s regexes)) 

Answer 3

Funktion Zusammensetzung und den von -> Makro diese schön und einfach sein kann:

(for [s strings] 
    (-> s ((apply comp 
      (for [s forbidden-words] #(.replace %1 s "")))))) 

Wenn Sie mehr ‚idiomatischer‘ sein wollen, Sie replace-str von clojure.contrib.string, stattdessen verwenden können von #(.replace %1 s "").

Keine Notwendigkeit, Regexs hier zu verwenden.