clojure - 执行函数直到特定条件成立

Question

我想重复地将某个函数应用于某个状态，直到条件成立为止。

函数 f 接受一个状态，修改它并返回它。再次将 f 应用于返回的状态，依此类推。

我认为这会奏效。

(first (filter pred (iterate f x)))

但它有点丑。加上内存消耗并不理想，因为迭代器将被迫评估并保持中间状态，直到返回 pred 保持为真的状态，此时中间状态应该被垃圾收集。

我知道你可以写一个简单的递归函数:

(loop [f x p] (if (p x) x (recur f (f x) p))

但我正在寻找一个核心库函数(或一些函数的组合)，它以相同的内存效率做同样的事情。

Answer 1

你真正想要的是take-while :

take-while
function

Usage: (take-while pred coll)
Returns a lazy sequence of successive items from coll while
(pred item) returns true. pred must be free of side-effects.

编辑

使用高阶函数来实现您想要的结果的一种方法可能是将您的函数包装成由 trampoline 使用的东西。 ，即返回最终结果的函数或执行下一步的另一个函数。这是代码:

(defn iterable [f]            ; wraps your function
  (fn step [pred x]           ; returns a new function which will accept the predicate
    (let [y (f x)]            ; calculate the current step result
      (if (pred y)            ; recursion stop condition
        (fn [] (step pred y)) ; then: return a new fn for trampoline, operates on y
        y))))                 ; else: return a value to exit the trampoline

迭代执行如下:

(trampoline (iterable dec) pos? 10)