Пример: решение уравнений

;; Решение уравнения y = cos y
;; как неподвижная точка функции косинус с нач.приближением 1.0
(fixed-point #'cos 1.0)
0.7390822985224024

;; Решение уравнения y = sin y + cos y
(fixed-point (lambda (y) (+ (sin y) (cos y)))
             1.0)
1.2587315962971173