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

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

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

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

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