Вопрос №165 от пользователя 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))
0
2
Используйте Хекслет по максимуму!
- Задавайте вопросы по уроку
- Проверяйте знания в квизах
- Проходите практику прямо в браузере
- Отслеживайте свой прогресс
Зарегистрируйтесь или войдите в свой аккаунт
Рекомендуемые программы
С нуля до разработчика. Возвращаем деньги, если не удалось найти работу.





Профессия
Новый
Разработка фронтенд и бэкенд компонентов веб-приложений
25 мая
16 месяцев


