diff options
| author | Mike Vink <mike1994vink@gmail.com> | 2023-05-07 11:47:16 +0200 |
|---|---|---|
| committer | Mike Vink <mike1994vink@gmail.com> | 2023-05-07 11:47:16 +0200 |
| commit | 80704db7698b0dd0f8e373448d6221bd4c974ebe (patch) | |
| tree | 0027ac7299dd1c58c2e4cbd37ec424839bcbb2bf /coding-exercises/2/83/install-real.rkt | |
| parent | 5bccd56659ea72a6f85d71503f7cc4512bc45950 (diff) | |
sparse termlists
Diffstat (limited to 'coding-exercises/2/83/install-real.rkt')
| -rw-r--r-- | coding-exercises/2/83/install-real.rkt | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/coding-exercises/2/83/install-real.rkt b/coding-exercises/2/83/install-real.rkt index 68f5e31..6b96137 100644 --- a/coding-exercises/2/83/install-real.rkt +++ b/coding-exercises/2/83/install-real.rkt @@ -14,6 +14,7 @@ (put 'make 'real (lambda (x) (tagme (make x)))) ;; methods (put 'add '(real real) (lambda (x y) (tagme (make (+ x y))))) + (put 'neg '(real) (lambda (x) (tagme (make (- x))))) (put 'sub '(real real) (lambda (x y) (tagme (make (- x y))))) (put 'mul '(real real) (lambda (x y) (tagme (make (* x y))))) (put 'div '(real real) (lambda (x y) (tagme (make (/ x y))))) |