рекурсивная функция

(defun f (limit &optional (n 1) (distance 10) (sum distance))
  (if (> sum limit)
      n
      (let ((new-distance (* 1.1 distance)))
        (f limit (1+ n) new-distance (+ new-distance sum)))))
 
CL-USER> (f 60)
5

;; Определяем функцию с одним обязательным аргументом limit
;; (значение суммарного пробега, которое спортсмен должен преодолеть за искомое число дней)
;; и тремя необязательными (опциональными):
;; n - количество дней (по умолчанию 1)
;; distance - расстояние, которое пробегает спортсмен за день (начинаем с 10)
;; sum - суммарный пробег (изначально равен значению distance, т.е. 10)
(defun f (limit &optional (n 1) (distance 10) (sum distance))
  (if (> sum limit)  ; Проверяем, превысил ли суммарный пробег установленный лимит
      n              ; Если да - возвращаем значение переменной n (счётчика дней) 
      (let ((new-distance (* 1.1 distance))) ; Если нет - увеличиваем на 10% расстояние, пробегаемое спортсменом,
                                             ; увеличиваем счётчик дней на 1 (1+ n),
                                             ; увеличиваем суммарный пробег на новое значение дистанции, пробегаемой спортсменом
        (f limit (1+ n) new-distance (+ new-distance sum)))))  ; И рекурсивно вызываем f с вышеозначенными значениями

(defun f (limit &optional (init-dist 10) &aux (sum 0))
  (1+ (length-stream
       (take-while (lambda (dist)
                     (<= (incf sum dist) limit))
                   (iterate (curry #'* 1.1) init-dist)))))