diff options
| author | Mike Vink <mike1994vink@gmail.com> | 2023-05-10 22:22:48 +0200 |
|---|---|---|
| committer | Mike Vink <mike1994vink@gmail.com> | 2023-05-10 22:22:48 +0200 |
| commit | 2c8bbf5955c687b8e1528e8c637d3ae18960797f (patch) | |
| tree | 4fd5e8e845773d8a611a9fb187d606899db03bff /coding-exercises/2/83/install-real.rkt | |
| parent | 78f438c53b0aaf147268a77dfd53f5b056939f39 (diff) | |
last excercise
Diffstat (limited to 'coding-exercises/2/83/install-real.rkt')
| -rw-r--r-- | coding-exercises/2/83/install-real.rkt | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/coding-exercises/2/83/install-real.rkt b/coding-exercises/2/83/install-real.rkt index a232e5e..2141059 100644 --- a/coding-exercises/2/83/install-real.rkt +++ b/coding-exercises/2/83/install-real.rkt @@ -35,6 +35,8 @@ (put 'project '(real) (lambda (n) ((get 'make 'rational) n 1.0))) (put 'greatest-common-divisor '(real real) (lambda (a b) (tagme (gcd-real a b)))) + ;; expt for integerizing factor + (put 'expt '(real real) expt) ;; sqrt and trig methods for complex nums (put 'sqr '(real) sqr) (put 'sqrt '(real) sqrt) |