diff options
| author | Mike Vink <mike1994vink@gmail.com> | 2023-03-03 09:33:13 +0100 |
|---|---|---|
| committer | Mike Vink <mike1994vink@gmail.com> | 2023-03-03 09:33:13 +0100 |
| commit | 0988f106514e61b59f53e7fe3c599e03edcfd47c (patch) | |
| tree | f8faeb9e9d5047828c7c386eb4db363212e52cb6 /coding-exercises/1/chapter115.rkt | |
| parent | b99dd822372b63c994bb97ff9971cfc64c721552 (diff) | |
folder
Diffstat (limited to 'coding-exercises/1/chapter115.rkt')
| -rw-r--r-- | coding-exercises/1/chapter115.rkt | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/coding-exercises/1/chapter115.rkt b/coding-exercises/1/chapter115.rkt new file mode 100644 index 0000000..0a026c6 --- /dev/null +++ b/coding-exercises/1/chapter115.rkt @@ -0,0 +1,14 @@ +#lang sicp +(define counter (box 0)) + +(define (cube x) (* x x x)) +(define (p x) + (set-box! counter (+ (unbox counter) 1)) + (- (* 3 x) (* 4 (cube x)))) +(define (sine angle) + (if (not (> (abs angle) 0.1)) + angle + (p (sine (/ angle 3))))) +(sine 1250.0) +(println "\n") +(println (unbox counter)) |