Aufzählen über eine Sequenz in Clojure?

Question

In Python kann ich dies tun:

animals = ['dog', 'cat', 'bird'] 
for i, animal in enumerate(animals): 
    print i, animal 

Welche Ausgänge:

0 dog 
1 cat 
2 bird 

Wie würde ich die gleiche Sache in Clojure erreichen? Ich überlegte, ein Listenverständnis wie folgt zu verwenden:

(println 
    (let [animals ["dog" "cat" "bird"]] 
    (for [i (range (count animals)) 
      animal animals] 
     (format "%d %d\n" i animal)))) 

Aber das druckt jede Kombination von Zahl und Tier aus. Ich schätze, es gibt eine einfache und elegante Möglichkeit, dies zu tun, aber ich sehe es nicht.

Answer 1

Es gibt map-indexed in Kern als 1,2.

Ihr Beispiel wäre:

(doseq [[i animal] (map-indexed vector ["dog" "cat" "bird"])] 
    (println i animal)) 

Answer 2

Schnell Lösung:

(let [animals ["dog", "cat", "bird"]] 
    (map vector (range) animals)) 

Oder, wenn Sie wollen, dass es in einer Funktion wickeln:

(defn enum [s] 
    (map vector (range) s)) 

(doseq [[i animal] (enum ["dog", "cat", "bird"])] 
    (println i animal)) 

Was hier passiert, ist der Funktionsvektor zu jedem Elemente in beiden Sequenzen angewandt wird, und Das Ergebnis wird in einer faulen Sammlung gesammelt.

Probieren Sie es in Ihrer Replik.

Answer 3

Verwendung von clojure.contrib.seq indiziert:

Verbrauch: (indexed s) Gibt eine faule Folge von [index, item] Paaren, wobei Artikel von 's' kommen und Indizes zählen von Null auf.

(indexed '(a b c d)) => ([0 a] [1 b] [2 c] [3 d]

Für Ihr Beispiel ist dies

(require 'clojure.contrib.seq) 
(doseq [[i animal] (clojure.contrib.seq/indexed ["dog", "cat", "bird"])] 
    (println i animal)) 

Answer 4

map-indexed sieht richtig, aber: Sie wirklich in den anderen Antworten args Sachen müssen alle von der doseq und dekonstruieren wir?

(map-indexed println ["dog", "cat", "bird"]) 

EDIT: wie @gits bemerkt dies in der REPL funktioniert aber nicht respektiert, dass clojure standardmäßig faul ist. dorun scheint dafür am nächsten among doseq, doall and doseq zu sein. doseq, wie auch immer, scheint der idiomatische Favorit hier zu sein. die Paare, die Elemente eines Vektors mit ihren Indizes

(dorun (map-indexed println ["dog", "cat", "bird"])) 

Answer 5

Eine weitere Option ist reduce-kv, zu verwenden.

So

(reduce-kv #(println %2 %3) nil ["dog" "cat" "bird"]) 

oder vielleicht etwas deutlicher

(reduce-kv (fn [_ i animal] (println i animal)) nil ["dog" "cat" "bird"]) 

ich diese Lösung hier nicht über einen mit doseq holen würde, aber es ist gut bekannt, diese Spezialisierung zu sein für Vektoren in reduce-kv.