diff --git a/src/com/owoga/corpus/markov.clj b/src/com/owoga/corpus/markov.clj index 5558087..ed193b8 100644 --- a/src/com/owoga/corpus/markov.clj +++ b/src/com/owoga/corpus/markov.clj @@ -1059,11 +1059,8 @@ markov-trie [eos eos eos] (fn [children] - (let [banned-ids (->> banned-words - (map database) - (into #{eos bos}))] - (remove - #(banned-ids (.key %)) children)))) + (remove + #(#{eos bos} (.key %)) children))) database (#(vector (rand-nth (phonetics/get-phones %)) %)) vector))