卡在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)

谁能建议如何获得true 的first index 值？

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)))

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

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)