Calculate the Total Cost of Delivered Pizza January 12, 2017

This Clojure code calculates the cost of delivered pizza given:

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.