coin-changer

(defn make-change [amount]
    (loop [coins [100 50 25 10 5 1], change [], amount amount]
        (if (empty? coins)
            change
            (let [coin (first coins)]
                (if (< amount coin)
                    (recur (rest coins) change amount)
                    (recur coins (conj change coin) (- amount coin)))))))