Рекурсия: Создайте функцию, порождающую по заданным числам M, K список, состоящий из случайного количества случайных чисел из промежутка от M до K

(defun from-last-nth (n list)
   (if (<= n (length list))
      (nth (- (length list) n) list)
   )
)

(defun back-num (n lst)
 (cond ((= n 1) (last lst))
       (t (back-num (- n 1) (butlast lst)))))
 
==> back-num
 
(back-num 3 '(1 2 3 4 5 6))
 
==> 4

(defun mk-random (m k)
  (let ((res nil))
   (dotimes (i (rnd 100) res)
      (setq res (cons (rnd (+ (min m k) (abs (- m k)))) res)))))
  
       
 
==> mk-random
 
(mk-random 40 50)
 
==> (9 36 41 45 20 49 19 1 22 23 1 3 5 44 4 3 36 5 9 48 38 47 12 28 16 18 44 42 7 38 41 18 39 29 42 0 49 12 35 0 21 7 23 7 27 6 5 13 41 1 11 46 5 25 8)
 
(mk-random 40 50)
 
==> (1 38 21 42 29 19 29 27 4 31 6 17 11 31 31 32 36 11 7 32 48 18 49 24 3 37 46 23 3 36 23 31 21 27 26 29 37 37 10 26 40 40 1 25 34 3 8 0 21 47 7 40 27 15 32 42 10 8 31 36 18 30 37 6 14 46 42 33 11 5 46 44 23 21 10 32 29 23 23 27)

(defun random-row (m k &optional (n (random 25)) &aux (a (random k)))
  (cond ((zerop n) nil)
        ((> a m) (cons a (random-row m k (1- n))))
        ((random-row m k n))))
 
> (random-row 40 50)
(49 48 48 48 46 49)
> (random-row 40 50)
(44 48 43 43 41 48 48 46 47 43 49 43 46 48 42 47 47 44 48)
> (random-row 40 50)
(48 45 46 48 46 43 45 47 42 42 49 48 42)

(defun clear-average (w &optional ac (n 0))
  (conD ((null w) (/ (apply #'* ac) n))
        ((null (car w)) (clear-average (cdr w) ac n))
        ((clear-average (cdr w) (cons (car w) ac) (1+ n)))))
 
> (setf w '(nil 46 45 44 41  nil 44 45 46 43 44 47  nil 46 45 46 46 44 42 41 49 nil))
(NIL 46 45 44 41 NIL 44 45 46 43 44 47 NIL 46 45 46 46 44 42 41 49 NIL)
> (clear-average w)
27324001339715137104165888000