clojure - нет делителей

Question

Уходит, что делит ?, теперь мне нужен defn (без делителей?).Я создал что-то близкое к ответу, но оно не выдает того, что мне нужно.Может быть, вы могли бы помочь снова, и мы будем очень признательны.

Думаю, мне, вероятно, понадобится обернуть разрывы?функция в анонимной функции, так что вы можете передать значение n.

(defn divides? [div num]
  (zero? (mod num div)))

Ниже код имеет проблему

(defn no-divisors? [n]
 (->> (range 2 n)
 (take-while #(< (* % %) n))
 (filter (partial divides? n))
empty?))

///current output///
(no-divisors? 9)
=> true
(no-divisors? 7)
=> true
///current output///

/// expected output///
(no-divisors? 9)
=> false
(no-divisors? 7)
 => true
 /// expected output///

любая помощь будет много, чтобы решить это было бы здорово.

Answer 1

(defn no-divisors? [n]
  (->> (range 2 n)
       (filter #(divides? % n))
       empty?))