2011-08-25 2 views

答えて

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

おかげで、私はすでにただ、それを見つけました答えを投稿するのに数秒を要した! –

+0

これは私が必要としていたものです! – PubNub

-1

私はこのための任意の組み込み関数を知らないが、自分でものを書くためにその冗長ではありませんが、ここで私の試みです:

(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"]} 
関連する問題