dissipation in two languages

dissipation.clj

(defn dissipation
  [decrements]
  (let [size (count decrements)]
    (loop [acc []
           sum size
           acc-position 0
           decrements decrements]
      (cond
       (= size (count acc))
       acc

       (or (empty? decrements) (> (first decrements) acc-position))
       (recur (conj acc sum) sum (inc acc-position) decrements)
       
       :else
       (recur acc (dec sum) acc-position (rest decrements))))))

dissipation.js

    function dissipation(decrements) {
      var size = decrements.length;
      var dissipate = function(acc, sum, accPosition, decrements) {
        if(size == acc.length){
          return acc;
        } else if (decrements[0] <= accPosition) {
          return dissipate(acc, sum - 1, accPosition, _.rest(decrements));
        } else {
          acc.push(sum)
          return dissipate(acc, sum, accPosition + 1, decrements);
        }
      }
      return dissipate([], size, 0, decrements);
    }