1.30

cosmin · Feb 22, 2012 · 34c5457 · 34c5457
1 parent 2d516c7
commit 34c5457
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/exercise-1-30.ss b/exercise-1-30.ss
@@ -0,0 +1,11 @@
+(define (cube x) (* x x x))
+(define (inc x) (+ x 1))
+
+(define (sum term a next b)
+  (define (iter a result)
+    (if (> a b)
+        result
+        (iter (next a) (+ (term a) result))))
+  (iter a 0))
+
+(= 3025 (sum cube 0 inc 10))