master
NaiJi ✨ 3 years ago
parent b7e479c7a6
commit f728095792

@ -0,0 +1,11 @@
#! /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)
Loading…
Cancel
Save