coding-exercises/1/30.rkt


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#lang racket
(require sicp)

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


(define (id x) x)

(sum id 0 (lambda (x) (+ x 1)) 2)