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]
"Drop all elements of `coll` until `pred` is False"
(let [[citer (iter coll)]]
(let [found false]
(for [val citer]
(if (not (pred val))
(setv found true))
(if found
(yield val))))))
(for [val citer]
(if (not (pred val))
(do (yield val) (break))))
(for [val citer]
(yield val))))
(defn empty? [coll]
"Return True if `coll` is empty"