17 lines
861 B
Clojure
17 lines
861 B
Clojure
;; Continuing on the same example, let's imagine Anna has a 20% discount card and Bill has 50%. Charlie pays full price
|
|
;; We can store their discount functions in a map
|
|
|
|
(def discount-cards {"Anna" discount-20pc
|
|
"Bill" discount-50pc
|
|
"Charlie" identity}) ;; Identity returns whatever value was passed to the function (in this case it will be price)
|
|
|
|
;; Now we can access them by cardholder name in another function
|
|
(defn calculate-discounted-price [price shopper-name]
|
|
"Applies the correct discount for the person"
|
|
(let [discount-fn (get discount-cards shopper-name)] ;; Get the right discount function
|
|
(discount-fn price))) ;; Apply discount function to the price
|
|
|
|
(calculate-discounted-price 100 "Anna"); => 80
|
|
(calculate-discounted-price 100 "Bill"); => 50
|
|
(calculate-discounted-price 100 "Charlie"); => 100
|