Calculate the Total Cost of Delivered Pizza January 12, 2017
This Clojure code calculates the cost of delivered pizza given:
- the number of pizza eaters
- average number of slices per person
- base price of each pizza
Assumes 8 slices per pie. Rounds up to whole pies. Adds tax @ 6% and a delivery charge @ 10%
(defn pizza-cost-calc "calculate the total cost of delivered pizza for n people" [n slices-per-person cost-per-pie] (let [pies (inc (int (/ (* slices-per-person n) 8))) piecost (* cost-per-pie pies) tax (* 0.06 piecost) delivery (* 0.10 piecost)] (str "total pizza cost for " n " people: " "$" (+ piecost tax delivery)))) (pizza-cost-calc 12 3 22.0)
For some bizarre reason, deleting this character: ° messes up the editor.