Làm thế nào để loại bỏ danh sách các từ từ chuỗi

Question

Những gì tôi muốn làm (trong Clojure):

Ví dụ, tôi có một vector của từ mà cần phải được loại bỏ:

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

.. . và một vector của chuỗi:

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

Vì vậy, mỗi từ cấm nên được gỡ bỏ từ mỗi chuỗi, và kết quả, trong trường hợp này, sẽ là: [ "danh sách phim" "thisisastring" "haha"].

Cách thực hiện việc này?

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

Sử dụng hàm hợp và -> macro này có thể được tốt đẹp và đơn giản:

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

Nếu bạn muốn có nhiều 'thành ngữ', bạn có thể sử dụng replace-str từ clojure.contrib.string, thay vì của #(.replace %1 s "").

Không cần sử dụng regex ở đây.