get-change

(defn get-change [coins value]                             
  (->> (tree-seq #(> value (reduce + %))                   
                 #(map (fn [c] (sort (conj % c))) coins)   
                 [])                                       
       (filter #(= 10 (reduce + %)))                       
       distinct))

(get-change [1 2 3] 10)