felixm/SICP
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Implement till 2.76

Browse Source
This commit is contained in:
Felix Martin
2020-11-17 13:33:55 -05:00
parent aedc20b585
commit c061a25798
8 changed files with 307 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
ex-1_11-20.scm
View File

@@ -47,8 +47,8 @@
angle
(p (sine (/ angle 3.0)))))
; a) (/ 12.5 3) -> 4.16 -> 1.38888 -> 0.462 -> 0.154 -> 0.051 (count = 5)
; 12.5 / 3^n < 0.1 <=> 125 < 3^n <=> 4.39 < n
; a. (/ 12.5 3) -> 4.16 -> 1.38888 -> 0.462 -> 0.154 -> 0.051 (count = 5)
; 12.5 / 3^n < 0.1 <=> 125 < 3^n <=> 4.39 < n
(define (count-sine-calls value count)
(if (> (abs value) 0.1) (count-sine-calls (/ value 3.0) (+ 1 count)) count))
(display "a) Calls for 12.5 = ") (display (count-sine-calls 12.5 0)) (newline)