clojure.core.reducers/take

function

since v0.0-1236

(take n)

(take n coll)

Source docstring:

Ends the reduction of coll after consuming n values.

Source code @ clojurescript:src/main/cljs/clojure/core/reducers.cljs

(defcurried take
  {}
  [n coll]
  (reducer coll
   (fn [f1]
     (let [cnt (atom n)]
       (rfn [f1 k]
         ([ret k v]
            (swap! cnt dec)
            (if (neg? @cnt)
              (reduced ret)
              (f1 ret k v))))))))