diff options
| author | Mike Vink <mike1994vink@gmail.com> | 2023-04-30 18:27:28 +0200 |
|---|---|---|
| committer | Mike Vink <mike1994vink@gmail.com> | 2023-04-30 18:27:28 +0200 |
| commit | 17c8d272074d10be4535924171c65415f39b2731 (patch) | |
| tree | 8e714579d6a477b451eadb2b87eb8232c61425ae /coding-exercises/2/78/install-complex-package.rkt | |
| parent | 0410f4d64a6845bcd7a2b2554c96deaa589a0c6a (diff) | |
85
Diffstat (limited to 'coding-exercises/2/78/install-complex-package.rkt')
| -rw-r--r-- | coding-exercises/2/78/install-complex-package.rkt | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/coding-exercises/2/78/install-complex-package.rkt b/coding-exercises/2/78/install-complex-package.rkt index a656495..fa39328 100644 --- a/coding-exercises/2/78/install-complex-package.rkt +++ b/coding-exercises/2/78/install-complex-package.rkt @@ -39,8 +39,8 @@ ;; predicates (...) -> bool (define (equ? z1 z2) - (and (equal? (real-part z1) (real-part z2)) - (equal? (imag-part z1) (imag-part z2)))) + (and (= (real-part z1) (real-part z2)) + (= (imag-part z1) (imag-part z2)))) (define (=zero? z) (and (= (real-part z)) (= (imag-part z)))) |