получить четные / нечетные индексированные элементы из коллекции (списка карт) в Clojure

Question

У меня есть список карт, мне нужно получить четные / нечетные индексированные элементы из этого списка в Clojure.Я не хочу повторять список с циклом for.Есть ли функция small или single_word?

Answer 1

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)

Answer 2

Я не знаю какой-либо встроенной функции для этого, но это не настолько многословно, чтобы написать ее самостоятельно, вот моя попытка:

(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"]}