Recur recursive version of iterative functions

recur_all_the_things.clj

;function fib(n) {
;  var next, acc = 1, 0;
;  while(n > 0) {
;    next, acc = next + acc, next;
;    n--;
;  }
;  return acc;
;}

(defn fib [n next acc]
  (if (= 0 n)
    acc
    (recur (dec n) (+ next acc) next)))

;function fact(n) {
;  var acc = 1;
;  while(n > 1) {
;    acc = acc * n;
;    n--;
;  }
;}
    
(defn fact [n acc]
  (if (= 1 n)
    acc
    (recur (dec n) (* n acc))))