Question

我有一个功能，我基本上从Clojure谷歌小组的讨论中抽出来，它采用一个集合和一个任意长度的函数列表，并过滤它以返回一个包含原始列表的所有元素的新集合。至少有一个函数的计算结果为true：

(defn multi-any-filter [coll & funcs]
    (filter #(some true? ((apply juxt funcs) %)) coll))

我正在为Project Euler Problem 1制作一个可推广的解决方案，所以我这样使用它：

(def f3 (fn [x] (= 0 (mod x 3))))
(def f5 (fn [x] (= 0 (mod x 5))))

(reduce + (multi-any-filter (range 1 1000) f3 f5))

这给出了正确的答案。

但是，我想修改它，以便我可以将它传递给它而不是函数，比如

(reduce + (multi-any-filter (range 1 1000) 3 5))

我可以用任意数量的整数替换3和5，并将函数包装（= 0（mod x y））作为多任意过滤函数内的匿名函数。

不幸的是，这超出了我的Clojure能力的极限。我认为我需要使用map对args列表执行某些操作，但我不确定如何让map返回一个函数列表，每个函数列表等待另一个论点。 Clojure似乎并没有支持我学习如何在其他函数式语言中使用它的方式。也许我需要在正确的位置使用partial，但我不太确定如何。

换句话说，我希望能够传递任意数量的参数（不是函数），然后将每个参数包装在同一个函数中，然后将该函数列表传递给{{ 1}}代替我juxt函数中的funcs。

感谢您的任何提示！

Answer 1

(defn evenly-divisible? [x y]
  (zero? (mod x y)))

(defn multi-any-filter [col & nums]
  (let [partials (map #(fn [x] (evenly-divisible? x %)) nums)
        f (apply juxt partials)]
    (filter #(some true? (f %)) col)))

我不能使用partial，因为它会将{arg}应用于fn的第一个位置。我们希望它位于evenly-divisible?的第二个位置我们可以在evenly-divisible?重新排列，但是当它独立使用时它看起来不太正确。

user=> (reduce + (multi-any-filter (range 1 1000) 3 5))
233168

Clojure部分应用程序 - 如何让'map'返回函数集合？

1 个答案: