私はこのように動作します機能したい、基本的にClojureの

Question

に順番に

をオブジェクトの位置を見つける：

user=> (pos 'c '(a b c d e f g) =) 
2 
user=> (pos 'z '(a b c d e f g) =) 
nil 

を私はこの思い付いた：だから、私の質問がある

(defn pos 
    "Gets position of first object in a sequence that satisfies match" 
    [object sequence match] 
    (loop [aseq sequence position 0] 
    (cond (match object (first aseq)) position 
      (empty? aseq) nil 
      :else (recur (rest aseq) (inc position))))) 

、私たちがこれを行うことを可能にする組み込み関数があるか、より良い、より機能的な/ Clojure-ishの方法でpos関数を書くことができるでしょうか？

Answer 1

実際に特定のアイテムを探したい場合は、.indexOfをコレクションに使用できます。あなたが関数を必要としない述語でより一般的な何かをしようとしているならば、とという項目がありますが、関数は十分です。一方

(defn pos [pred coll] 
    (->> coll 
     (map-indexed #(when (pred %2) %1)) 
     (remove nil?) 
     (first))) 

user> (pos #{'c} '(a b c d e f g)) 
2 

、これはclojure.coreに含まれていない理由があります：それは非常に効率的ではない、とあなたは非常に稀に、コレクション内のインデックスを気にしない - あなたが行う場合は、通常、あなたを再考すべきですアルゴリズム。