1 665c255d 2023-08-04 jrmu (defun sum-iter (term a next b)
2 665c255d 2023-08-04 jrmu   (defun iter (a result)
3 665c255d 2023-08-04 jrmu     (if (> a b)
4 665c255d 2023-08-04 jrmu 	result
5 665c255d 2023-08-04 jrmu       (iter (funcall next a)
6 665c255d 2023-08-04 jrmu 	    (+ (funcall term a) result))))
7 665c255d 2023-08-04 jrmu   (iter a 0))