chouser-4clojure-solution112.clj

;; chouser's solution to Sequs Horribilis
;; https://4clojure.com/problem/112

(fn [limit xs]
  (second ((fn f [[limit] xs]
            (if (coll? xs)
              (let [rs (take-while #(<= 0 (first %))
                          (reductions f [limit] xs))]
                [(first (last rs)) (map second (rest rs))])
              [(- limit xs) xs]))
           [limit] xs)))