12 lines
226 B
Racket
12 lines
226 B
Racket
|
#! /usr/bin/racket
|
||
|
|
#lang racket/base
|
||
|
|
|
||
|
|
(define (sum term a next b)
|
||
|
|
(define (iter a result)
|
||
|
|
(if (> a b)
|
||
|
|
result
|
||
|
|
(iter (next a) (+ (term a) result))))
|
||
|
|
(iter a 0))
|
||
|
|
|
||
|
|
(sum (lambda (x) x) 0 (lambda (x) (+ x 1)) 3)
|