make_change.clj

(defn make-change
  [target-amount coins]
  (let [sorted (reverse (sort coins))]
    (loop [amount target-amount
           coins-frequency {}]
      (if (zero? amount)
        coins-frequency
        (let [coin (first (filter #(<= % amount) sorted))
              count (quot amount coin)]
          (recur (- amount (* count coin)) (merge-with + coins-frequency {coin count})))))))
          
 (comment
   (make-change 31 [1 5 25 10])
  )

 ; => {25 1, 5 1, 1 1}