我对这种语言比较陌生,例如就像现在就学习它一样,我正在网上寻找内容,无法说出这门语言的首尾。
我需要能够创建一个名为除数的函数,该函数将接受用户输入并返回2√以内的所有数字。
这是我到目前为止的代码。
(defn divisors[n]
(->> (range 2 (inc (quot n 2)))
(filter #(zero? (rem n %)))))
这就是最终产品的外观。
(get-divisors 4)
=> (2)
(get-divisors 101)
=> (2 3 4 5 6 7 8 9 10)
答案 0 :(得分:1)
没关系,当我为[n]输入错误时,我执行的代码错误。编译代码时,我只是使用值4并返回相同的值。
(defn divisors[n]
(->> (range 2 (inc (quot n 2)))
(filter #(zero? (rem n %)))))
只要您以正确的格式(例如编译代码后,您需要使用格式(除数4),该格式为用户提供答案(2)