gistfile1.txt

(defn accumulate [f x coll]
  (loop [my-x x
         my-coll coll
         acc-coll []]
    (if (empty? my-coll)
      acc-coll
      (let [this-ele (f my-x (first my-coll))]
        (recur this-ele
               (rest my-coll)
               (conj acc-coll this-ele))))))