Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

slightly cleaner version of drop-while, could use yield-from when ready

Browse Source
This commit is contained in:
Bob Tolbert 2013-08-04 19:12:47 -06:00
parent 399ea1889a
commit 9d2ad4b4ff
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
hy/core/language.hy
View File

@ -63,12 +63,11 @@
(defn drop-while [pred coll] (defn drop-while [pred coll]
"Drop all elements of `coll` until `pred` is False" "Drop all elements of `coll` until `pred` is False"
(let [[citer (iter coll)]] (let [[citer (iter coll)]]
(let [found false] (for [val citer]
(for [val citer] (if (not (pred val))
(if (not (pred val)) (do (yield val) (break))))
(setv found true)) (for [val citer]
(if found (yield val))))
(yield val))))))
(defn empty? [coll] (defn empty? [coll]
"Return True if `coll` is empty" "Return True if `coll` is empty"