2011-08-25 22 views

Respuesta

24
user=> (take-nth 2 [0 1 2 3 4 5 6 7 8 9]) 
(0 2 4 6 8) 
user=> (take-nth 2 (rest [0 1 2 3 4 5 6 7 8 9])) 
(1 3 5 7 9) 
+0

Gracias, ya me encontré con él, sólo se perdió por segundos para publicar la respuesta! –

+0

¡Esto es exactamente lo que necesitaba! – PubNub

-1

No sé de cualquier función incorporada para esto, pero no es tan detallado para escribir uno usted mismo, aquí es mi intento:

(defn evens-and-odds [coll] 
    (reduce (fn [result [k v]] 
      (update-in result [(if (even? k) :even :odd)] conj v)) 
      {:even [] :odd []} 
      (map-indexed vector coll))) 

(evens-and­-odds [ "foo"­ "bar"­ "baz"­ "foob­ar" "quux­" ]) 
; -> {:even ["foo" "baz" "quux"], :odd ["bar" "foobar"]} 
Cuestiones relacionadas