count-change.clj

(defn count-change-for-us [amount] (count-change amount [1 5 10 25 50]))

(defn count-change [amount coins] 
  (cond (= amount 0) 1
        (< amount 0) 0
        (empty? coins) 0
        :else (+ (count-change (- amount (first coins)) coins)
		 (count-change amount (rest coins)))
  ))

user=> (count-change-for-us 100)
292