如何在Clojure中使用谓词？

Question

我对Clojure有点陌生，我不确定如何使用谓词。 例如，我如何制作一个函数，该函数返回满足谓词的列表中的元素。

>(filter-in number? '(a 2 (1 3) b 7))
 (2 7)

 >filter in symbol? '(a (b c) 17 foo))
 (a foo)

我试过了，但是不起作用：

(defn filter-in [pred lst]
   (fn [x]
     (if (empty? lst)
       ()
       (if (pred (first lst))
         (cons (first lst) (filter-in pred (rest lst)))
         (filter-in pred (rest lst))))))

提前致谢。

Answer 1

正如@Deigo_Basch在评论中指出的那样，Clojure已经具有内置的“过滤器”功能，可以满足您的需求。

但是，如果您想创建自己的学习过程来帮助自己，那么您的解决方案就差不多了：

(defn filter-in [pred lst]
     (if (empty? lst)
       '()
       (if (pred (first lst))
         (cons (first lst) (filter-in pred (rest lst)))
         (filter-in pred (rest lst)))))

您最初的解决方案实际上是定义一个函数，该函数返回另一个函数（“ fn [x]”部分）。 像这样的返回其他函数的高级函数通常很有用，但是在这种情况下，您正在寻找直接在其参数上执行的东西。

还请注意，与Clojure的内置过滤器不同，您的定义并不懒惰。 它还没有利用Clojure的循环递归机制，因此可能会炸毁大型列表上的堆栈。 这些是Clojure的功能，一旦您了解更多，就会很快遇到。