Tester si une liste contient une valeur spécifique en Clojure

Question

Quel est le meilleur moyen de tester si une liste contient une valeur donnée en Clojure ?

En particulier, le comportement de contains? me perturbe actuellement :

(contains? '(100 101 102) 101) => false

Je pourrais évidemment écrire une fonction simple pour parcourir la liste et tester l'égalité, mais il doit sûrement exister un moyen standard de le faire ?

Answer 1

Ah, contains?... supposément l'une des cinq premières questions fréquemment posées concernant Clojure.

Cela ne vérifie pas si une collection contient une valeur; cela vérifie si un élément pourrait être récupéré avec get ou, en d'autres termes, si une collection contient une clé. Cela a du sens pour les ensembles (qui peuvent être considérés comme ne faisant aucune distinction entre clés et valeurs), les maps (donc (contains? {:foo 1} :foo) est true) et les vecteurs (mais notez que (contains? [:foo :bar] 0) est true, car les clés ici sont des indices et le vecteur en question contient l'index 0!).

Pour ajouter à la confusion, dans les cas où il n'a pas de sens d'appeler contains?, il renvoie simplement false; c'est ce qui se passe dans (contains? :foo 1) et aussi (contains? '(100 101 102) 101). Mise à jour: Dans Clojure ≥ 1.5 contains? lève une erreur lorsqu'il reçoit un objet d'un type qui ne supporte pas le test de "membership" de la clé prévu.

La manière correcte de faire ce que vous essayez de faire est la suivante:

; la plupart du temps cela fonctionne
(some #{101} '(100 101 102))

Lorsque vous cherchez l'un des éléments d'un ensemble, vous pouvez utiliser un ensemble plus grand; lorsque vous cherchez false / nil, vous pouvez utiliser false? / nil? -- car (#{x} x) renvoie x, donc (#{nil} nil) est nil; lorsque vous cherchez l'un des éléments multiples dont certains peuvent être false ou nil, vous pouvez utiliser

(some (zipmap [...les éléments...] (repeat true)) la-collection)

(Notez que les éléments peuvent être passés à zipmap dans n'importe quel type de collection.)

Answer 2

Voici mon util standard pour le même but :

(defn in? 
  "true si coll contient elm"
  [coll elm]  
  (some #(= elm %) coll))

Answer 3

Je sais que je suis un peu en retard, mais que pensez-vous de :

(contains? (set '(101 102 103)) 102)

Enfin, dans clojure 1.4, cela renvoie true :)

Answer 4

(non= -1 (.indexOf '(101 102 103) 102)) 

Fonctionne, mais ci-dessous est mieux:

(some #(= 102 %) '(101 102 103))

Answer 5

Pour ce que cela vaut, voici ma simple implémentation d'une fonction contains pour les listes :

(defn list-contains? [coll value]
  (let [s (seq coll)]
    (if s
      (if (= (first s) value) true (recur (rest s) value))
      false)))