dizeleri

Question

kelimelerin listesini kaldırmak için nasıl (Clojure içinde) yapmak istiyorsunuz Ne: Örneğin

, ben kaldırılması gerekir kelimelerin vektör var:

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

.. . ve dizeleri bir vektör:

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

Yani, her yasak kelime her dize kaldırılması gerektiğini ve sonuç, bu durumda, olacaktır: [ "film listesi" "thisisastring" "haha"].

Bu nasıl yapmalı? yerine

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

daha 'deyimsel' olmak isterseniz, clojure.contrib.string gelen replace-str kullanabilirsiniz: function kompozisyonunu ve bu güzel ve basit olabilir -> makro kullanma

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

#(.replace %1 s "").

burada regexs kullanmak gerek yok.