cons is for boomers
This commit is contained in:
+1
-1
@@ -14,7 +14,7 @@
|
|||||||
(defn enforce-toggles [[el & rst]]
|
(defn enforce-toggles [[el & rst]]
|
||||||
(cond (= el "do()") (recur rst)
|
(cond (= el "do()") (recur rst)
|
||||||
(= el "don't()") (recur (drop-while #(not= % "do()") rst))
|
(= el "don't()") (recur (drop-while #(not= % "do()") rst))
|
||||||
el (cons el (lazy-seq (enforce-toggles rst)))))
|
el (conj (lazy-seq (enforce-toggles rst)) el)))
|
||||||
|
|
||||||
;; part 1
|
;; part 1
|
||||||
(->> input
|
(->> input
|
||||||
|
|||||||
Reference in New Issue
Block a user