less than 1 minute read

Code

;; rate_of_change.clj

(def numbers [100 107 106 104 111 108 112])

(defn rate-of-change [a b]
  (float (* (/ (- b a) a) 100)))

(rate-of-change 100 107)
;;=> 7.0

(map rate-of-change numbers (rest numbers))
;;=> (7.0 -0.93457943 -1.8867924 6.730769 -2.7027028 3.7037036)

(map + '(1 2 3) '(4 5))
;;=> (5 7)

(map + '(1 2 3) '())
;;=> ()

Updated: