changes.clj

; I needed a way to call a sequence of functions until one returned false,
; but return the last true return.

(defn changes
   "Call functions sequentially until one returns false; return true if any returned true. Not tail-recursive."
   ([] false)
   ([f] (f))
   ([f & fs]
    (let [fv (f)]
       (when fv (do (apply changes fs)))
       fv)))

user=> (changes #(+ 2 1) #(println "hello") #(println "never"))
hello
3