coin_purse.clj

(defn change-coins
 "Takes in input n as the amount in cents.
  Returns the map of coins and their counts."
 [n]
 (loop [n n
        coins [100 25 10 5 1]
        purse {}]
   (if (empty? coins)
     purse
     (let [coin (first coins)
           num-coin (quot n coin)
           remainder (rem n coin)]
       (recur remainder (rest coins) (assoc purse coin num-coin))))))