From f728095792ec78424b5fe46ae37c73a189cf1348 Mon Sep 17 00:00:00 2001
From: NaiJi <naijiworld@protonmail.com>
Date: Thu, 11 Mar 2021 14:57:35 +0100
Subject: [PATCH] Add 1.30

---
 sicp-ex-1.30.rkt | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100755 sicp-ex-1.30.rkt

diff --git a/sicp-ex-1.30.rkt b/sicp-ex-1.30.rkt
new file mode 100755
index 0000000..a0d105b
--- /dev/null
+++ b/sicp-ex-1.30.rkt
@@ -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)