diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/clj/clojure/core.clj | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index 8a00c6d2..90e3f76f 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -1802,6 +1802,15 @@ ([s] (drop-last 1 s)) ([n s] (map (fn [x _] x) s (drop n s)))) +(defn take-last + "Returns a seq of the last n items in coll. Depending on the type + of coll may be no better than linear time. For vectors, see also subvec." + [n coll] + (loop [s (seq coll), lead (seq (drop n coll))] + (if lead + (recur (next s) (next lead)) + s))) + (defn drop-while "Returns a lazy sequence of the items in coll starting from the first item for which (pred item) returns nil." |