diff options
| author | Mike Vink <mike1994vink@gmail.com> | 2023-05-03 09:19:18 +0200 |
|---|---|---|
| committer | Mike Vink <mike1994vink@gmail.com> | 2023-05-03 09:19:18 +0200 |
| commit | 3fdd0f8042574874a34999291e00cb550cf91e2d (patch) | |
| tree | 5e32ebdd2a1cd34203d5b04921ddd5ee66b47b48 /coding-exercises/2/83/install-complex.rkt | |
| parent | 07286656104cfdab4004eae4d02fbe1f6c2ace21 (diff) | |
refactor to use arithmetic package for working with polys
Diffstat (limited to 'coding-exercises/2/83/install-complex.rkt')
| -rw-r--r-- | coding-exercises/2/83/install-complex.rkt | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/coding-exercises/2/83/install-complex.rkt b/coding-exercises/2/83/install-complex.rkt new file mode 100644 index 0000000..17b479f --- /dev/null +++ b/coding-exercises/2/83/install-complex.rkt @@ -0,0 +1,9 @@ +#lang racket +(provide install-complex) +(require "../78/install-complex-package.rkt" + "../../../shared/data-directed-programming.rkt") + +(define (install-complex apply-and-drop get put) + (install-complex-package apply-and-drop get put) + (put 'project '(complex) (lambda (z) + ((get 'make 'real) (apply-and-drop 'real-part z))))) |