Upload New File

step_0.rkt

+#lang r5rs
+
+(define (point  x y)
+  (define (dispatch m)
+    (cond ((eq? m 'getx) x)
+          ((eq? m 'gety) y)
+          ((eq? m 'type) 'point)
+          ((eq? m 'info) (list (dispatch 'type) (dispatch 'getx) (dispatch 'gety) ))
+          (else (display "ERROR"))))
+  dispatch)
+
+(define p (point 1 2))
+(display (p 'getx))
+(newline)
+(display (p 'gety))
+(newline)
+(display (p 'type))
+(newline)
+(display (p 'info))