repos
/
sicp
/
tree
/ ex1-29.scm~
Blob
Date:
Fri Aug 4 04:57:27 2023 UTC
Message:
Import sources
Actions:
History
|
Blame
|
Raw File
1
(define (sum term a next b)
2
(if (> a b)
3
0
4
(+ (term a)
5
(sum term (next a) next b))))