just re-use drop-while with a complement

dgtized · Jul 14, 2024 · f196a70 · f196a70
1 parent 16ae0ed
commit f196a70
Showing 1 changed file with 1 addition and 6 deletions.
diff --git a/src/shimmers/common/sequence.cljc b/src/shimmers/common/sequence.cljc
@@ -214,9 +214,4 @@
   "Returns a lazy sequence of the items in coll starting from the
   first item for which (pred item) returns logical true."
   [pred coll]
-  (let [step (fn [pred coll]
-               (let [s (seq coll)]
-                 (if (and s (not (pred (first s))))
-                   (recur pred (rest s))
-                   s)))]
-    (lazy-seq (step pred coll))))
+  (drop-while (complement pred) coll))