Skip to content

Instantly share code, notes, and snippets.

@pyykkis

pyykkis/kata-potter.clj

Created November 13, 2011 16:41
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save pyykkis/1362307 to your computer and use it in GitHub Desktop.
Save pyykkis/1362307 to your computer and use it in GitHub Desktop.
Download ZIP
Clojure implementation for KataPotter
Raw
kata-potter.clj
(def book-price 8)
(def discounts [1 1 0.95 0.90 0.80 0.75])
(defn price [books]
(let [uniques (set books)
discount (discounts (count uniques))]
(+ (* (count uniques) book-price discount))) (price (remove books uniques)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment