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-integer.rkt | |
| parent | 78f438c53b0aaf147268a77dfd53f5b056939f39 (diff) | |
last excercise
Diffstat (limited to 'coding-exercises/2/83/install-integer.rkt')
| -rw-r--r-- | coding-exercises/2/83/install-integer.rkt | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/coding-exercises/2/83/install-integer.rkt b/coding-exercises/2/83/install-integer.rkt index ca33ba0..d2f34fb 100644 --- a/coding-exercises/2/83/install-integer.rkt +++ b/coding-exercises/2/83/install-integer.rkt @@ -21,6 +21,8 @@ (define (gcd-integer a b) (newline) (display (list "GCD-INTEGER -- " a b)) + (newline) + (newline) (if (= b 0) a (gcd-integer b (remainder a b)))) @@ -31,10 +33,10 @@ (put 'sub '(integer integer) (lambda (x y) (- x y))) (put 'mul '(integer integer) (lambda (x y) (* x y))) (put 'div '(integer integer) (lambda (x y) (/ x y))) - (put 'greatest-common-divisor '(integer integer) (lambda (a b) - (gcd-integer a b))) + (put 'greatest-common-divisor '(integer integer) gcd-integer) (put 'raise '(integer) raiseme) ;; sqrt and trig methods for complex nums + (put 'expt '(integer integer) expt) (put 'sqr '(integer) sqr) (put 'sqrt '(integer) sqrt) (put 'atan '(integer integer) atan) |