coding-exercises/2/83/install-complex.rkt


1
2
3
4
5
6
7
8
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)))))