gistfile1.clj

(defn maybe-double-value [n, max] 
  (let [double (* 2 n)]
    (cond (< double max) double
    :else n )))  

(defn maybe-double-the-values [values max] 
  (map #(maybe-double-value %1 max) values))

=> (maybe-double-the-values [1 2 3 4 5] 10)