Вопрос №608 от пользователя Юрий Бацура в уроке «СИКП: Процедуры в качестве аргументов», курс «Структура и интерпретация компьютерных программ»

Юрий Бацура

Добрый день! В задаче к 10 уроку получил неожиданный результат, почему-то мое решение съедает последний разряд и не проходит проверку, подскажите, пожалуйста, в чем моя ошибка. (вместо 0.24999999999999992 получаю 0.2499999999999999)

(define (inc x) (+ x 1))
(define (simpson f a b n)
  (define h (/ (- b a) n))
  (define k a)
  (define (get_y k)
    (define y (f (+ a (* k h))))
    (cond ((= k 0) y)
          ((= k n) y)
          ((even? k) (* y 2))
          (else (* y 4)))
  ) 
  (* h (/ (sum get_y a inc n) 3))
)