clojure - 卡在clojure中查找索引值

Question

我想编写一个程序，clojure它只会true从我的函数返回值的第一个索引值。我的代码在这里：

 (defn func [f x] (map f x))

因此，如果我给出如下值：

(func zero? [1 1 1 0 3 7 0 2])

它给了我：

(false false false true false false true false)

如果我给：

(func (fn [n] (= n 6)) [:cat :dog :six :blorg 6]) 

它返回：

(false false false false true)

但是，我想要的index value是first true. 像

(func zero? [1 1 1 0 3 7 0 2]) => 3 (desired result)
(func (fn [n] (= n 6)) [:cat :dog :six :blorg 6]) => 4 (desired result)
(func zero? [1 1 3 7 2]) => nil (desired result)

有人可以建议如何获得first index价值true吗？

Answer 1

 (count (take-while not '(false false false true false false true false)))
 => 3

 (.indexOf '(false true) true)
 => 1

Answer 2

您自己发布的答案似乎有点过于复杂。可以简化为：

(defn first-indexed [pred coll]
  (first (keep-indexed (fn [idx itm]
                         (when (pred itm)
                           idx))
                       coll)))

即不需要的true? (vec (map部分。tun

Answer 3

好的，所以我为我的问题本身找到了答案：

(defn indices [pred coll]
  (keep-indexed #(when (pred %2) %1) coll))

  (defn tun [f x]
    (first (indices true? 
              (vec (map f x))))) 

如果你这样做：

(tun zero? [1 1 3 7 2]) => nil (the exact desired result)