2011-08-25 36 views

Trả lời

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

Cảm ơn, tôi đã tìm thấy nó, chỉ bỏ lỡ giây để đăng câu trả lời! –

+0

Đây chính xác là những gì tôi cần! – PubNub

-1

Tôi không biết về bất kỳ chức năng built-in cho điều này, nhưng nó không phải là dài dòng để viết một mình, đây là nỗ lực của tôi:

(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"]} 
Các vấn đề liên quan