Clojureで与えられた述語を満たすシーケンスの最初の要素の最後を見つける方法はありますか？

Question

私は、Clojureで与えられた述語を満たすシーケンスの最初の要素の最後を見つけようとしています。

は、私は、現時点で次のコードを使用します。

(last (take-while pred (gimme-potentially-infinite-seq ...))) 

残念ながら、(take-while ...)は、いくつかのケースでは、メモリ不足の私を引き起こして、頭の上に成り立ちます。

私はそれを解決するためにloop/if/recurコンボを使用することができましたが、正確にはclojure.coreにいくつかの機能（または機能の組み合わせ）がありますか？

更新：lastのように頭にかかっているのはtake-whileではありません。

更新2：私はこの(->> (range) (take 10000000) last)をClojure REPLとClojureScript REPL（Planck 2.0.0とLumo 1.1.0）でテストしました。プランク（2GBのRAM）とLumo（1.5GB）では大きなヒープの成長が見られますが、JVM（200〜300MB）ではヒープの成長がわずかです。

Answer 1

ただ、ゆっくりとそれを構築：あなたの順序が本当に無限であればもちろん

(def data (range 9999)) 
(defn is-evil? [x] 
    (= 666 (mod x 1000))) ; is the number like xxxx666 

(def all-matching-nums 
    (filter is-evil? data)) 

all-matching-nums   => (666 1666 2666 3666 4666 5666 6666 7666 8666 9666) 
(last all-matching-nums) => 9666 

を、filterステップが終了することはありません。それは別の問題です！