Вывести минимальное значение функции на заданном интервале и соответствующее ему значение аргумента. - Lisp - Ответ 1948421

(defun min-value-and-corresponding-arg (fun left-threshold right-threshold step)
  (labels ((iter (l-t prev-min)
         (if (> l-t right-threshold)
         prev-min
         (iter (+ l-t step)
               (let ((prev-val (cdr prev-min))
                 (new-arg l-t)
                 (new-val (funcall fun l-t)))
             (if (< new-val prev-val)
                 (cons new-arg new-val)
                 prev-min))))))
    (iter (+ left-threshold step) (cons left-threshold
                    (funcall fun left-threshold)))))

CL-USER> (min-value-and-corresponding-arg #'(lambda (x)
                          (+ (* 2 x x) (* 5 x) (- 7)))
                      -1000
                      1000
                      0.1)
(-1.2971125 . -10.120561)
CL-USER> ; увеличиваем диапазон и уменьшаем шаг - все опять работает:
; No value
CL-USER> (min-value-and-corresponding-arg #'(lambda (x)
                          (+ (* 2 x x) (* 5 x) (- 7)))
                      -10000
                      10000
                      0.01)
(-1.2509372 . -10.124998)