RosettaCodeData/Task/Short-circuit-evaluation/Clojure/short-circuit-evaluation.clj

(letfn [(a [bool] (print "(a)") bool)
        (b [bool] (print "(b)") bool)]
  (doseq [i [true false] j [true false]]
    (print i "OR" j "= ")
    (println (or (a i) (b j)))
    (print i "AND" j " = ")
    (println (and (a i) (b j)))))