使用換，同時或一些其他順序功能

Question

user> (for [n '(9) d '(2 3 5 7) :while (not= 0 (mod n d))] n) 

它給我，

user> (9) 

如果我更改順序列表中的這個樣子，

user> (for [n '(9) d '(2 5 3 7) :while (not= 0 (mod n d))] n) 

然後它給了我，

user> (9 9) 

其實，我試圖得到一個空的列表，如果整數n可被任何整數的序列d整除;否則n。所以，問題是，是否有任何功能，或幾個組合，可以做到這一點？或者我必須使用loop-recurr或遞歸的東西嗎？

Answer 1

我認爲你正在尋找的功能是filter。

返回coll的項目的懶惰序列，其中（pred項目） 返回true。 pred必須沒有副作用。

下面的函數，divisible-by-fn，返回按n

(defn divisible-by-fn [your-integer your-seq] 
    (filter #(zero? (mod your-integer %))your-seq)) 
(divisible-by-fn 9 '(2 5 3 7)) 
=>(3) 

是可分的seq數...但是，在情況下，你需要得到一個空列表，如果該整數n可以被d中的任何整數整除seq;否則n，然後

(defn your-fn [your-integer your-seq] 
(if-not (not-any? #(zero? (mod your-integer %))your-seq) 
() 
your-integer) 
) 
(your-fn 9 '(2 5 3 7)) 
=>() 
(your-fn 11 '(2 5 3 7)) 
=> 11