Вычислить сумму факториалов чисел

(defun fac/rec (n)
  (if (< n 2)
      1
      (* n (fac/rec (- n 1)))))
 
(defun sum/rec (n)
  (if (< n 2)
      1
      (+ (fac/rec n)
         (sum/rec (- n 1)))))

(defun fac/tail (n &optional (acc 1))
  (if (< n 2)
      acc
      (fac/tail (- n 1) (* n acc))))
 
(defun sum/tail (n &optional (acc 0))
  (if (< n 2)
      (+ acc 1)
      (sum/tail (- n 1)
               (+ (fac/tail n) acc))))

(defun sum-fact (n &optional (s 0) (f 1) (p 2))
  (cond ((> p n) (+ s f))
        (t (sum-fact n (+ s f) (* f p) (+ p 1)))))
 
==> sum-fact
 
(sum-fact 100)
 
==>
 
94269001683709979260859834124473539872070722613982672442938359305624678223479506023400294093599136466986609124347432647622826870038220556442336528920420940313

(defun sum-fact-i (n)
  (let ((f 1))
       (iter (for i from 1 to n) (setq f (* f i)) (summing f))))
 
 
==> sum-fact-i
 
(sum-fact-i 20)
 
==> 2561327494111820313

(defun factorial (n)
   (if (zerop n) 1 (* (factorial (1- n)) n)))
 
(defun factorial+ (n)
  (if (zerop n) 0 (+ (factorial+ (1- n)) (factorial n))))
 
> (factorial+ 20) 
2561327494111820313

(defun factorial+ (n)
  (loop for a from 1 to n
        for m = a then (* a m) sum m))
 
> (factorial+ 20) 
2561327494111820313