github/sicp
1
0
Fork 0
mirror of https://github.com/correl/sicp.git synced 2024-11-23 11:09:57 +00:00
Code Issues Projects Releases Packages Wiki Activity

Ex. 1.32: sum and product using accumulate-iter

Browse source
This commit is contained in:
Correl Roush 2014-06-10 20:00:19 -04:00
parent f5cfef579b
commit 26d06cd99f
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
1-3.org
View file

@ -197,6 +197,12 @@ layout: org
result result
(iter (next a) (combiner (term a) result)))) (iter (next a) (combiner (term a) result))))
(iter a null-value)) (iter a null-value))
(define (sum term a next b)
(accumulate-iter + 0 term a next b))
(define (product term a next b)
(accumulate-iter * 1 term a next b))
#+END_SRC #+END_SRC
** Exercise 1.33 ** Exercise 1.33