Функционал AVERAGE-DAMP

Формализуем торможение усреднением как отдельный приём.

(defun average-damp (f)
  (lambda (x) (average x (funcall f x))))

average-damp - функционал,

(funcall (average-damp square) 10)
55          ; среднее 10 и 100