Advertisement
Guest User

Untitled

a guest
Dec 1st, 2019
132
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defn calculate-total-fuel
  2.   [input]
  3.   (reduce
  4.     (fn [i, x] (+ i x))
  5.     0
  6.     (map
  7.       (fn [x] (- (quot x 3) 2))
  8.       input)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement