gistfile1.txt

(def my-cat
  (fn [rf]
    (fn ([] (rf))
        ([result] (rf result))
        ([result input]
         (reduce (fn [acc val]
                   (cond 
                     (or (= val :fish)
                         (= val :heat))
                     acc
                     
                     (= val :sleep)
                     (reduced (reduced acc))
                   
                     :else
                     (let [ret (rf acc val)]
                       (if (reduced? ret)
                         (reduced ret)
                         ret))))
                 result
                 input)))))