Codecademyの課題をClojureで解いてみよう - その２

今回はタクシーの運賃を計算する関数を実装します。
letを使って数値に名前をつけました。
そしてletの中で通常料金の計算は終わっているという。

	(defn taxi-fare [milesTraveled, pickupTime]
	(let [
	baseFare 2.50
	costPerMile 2.00
	nightSurcharge 0.50
	cost (+ baseFare (* costPerMile milesTraveled))]
	(if (or (<= pickupTime 6)
	(<= 20 pickupTime))
	(+ nightSurcharge cost)
	cost)))

view raw taxy-fare.clj hosted with ❤ by GitHub