I see a couple of ways you could reorganize it. I do not think that this is objectively better than what you wrote, but I will send it as food for thought.
(let [c (first (sum [ab])) f (+ s (if (even? c) c 0))] ...)
Or that
(defn evenz [n] (if (even? n) n 0)) (let [f (+ s (evenz (first (sum [ab]))))] ...)
source share