如何比较clojure中两个列表的元素

Question

我想比较一下clojure中的两个列表,

(def a '(1 2 3 4 5))
(def b '(3 2 7 8 10))

通过比较两个列表的元素来得到结果(2 3)或(3 2).

(defn compareList[x, y]
  (do
   (def result '())
   (def i 0)
   (def j 0)
   (while (< i 5) 
     (while (< j 5)
       (if (= (nth x i) (nth y j)) 
         (def result (conj (nth x i) result)))
       (def j (inc j))
     )
   )
   result))


(print (compareList a b))

这是我的代码.但结果是().哪里弄错了？请帮忙.

Answer 1

使用套装更适合您的情况

(clojure.set/intersection #{1 2 3 4 5} #{3 2 7 8 10})

这将输出 #{2 3}