Вопрос №165 от пользователя user-7f4b4446afcf509a в уроке «СИКП: Процедуры в качестве аргументов», курс «Структура и интерпретация компьютерных программ»

user-7f4b4446afcf509a

(define (sum term a next b)
  (if (> a b) 0
  (+ (term a) (sum term (next a) next b))))


(define (pi-sum a b)
  (sum pi-sum-node a pi-sum-next b))

(define (pi-sum-node a)
  (/ 1.0 (* a (+ a 2))))

(define (pi-sum-next a)
  (+ a 4))