aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Polymorphism/Racket/polymorphism.rkt Normal file
View file

@ -0,0 +1,14 @@
#lang racket
(define point%
(class* object% (writable<%>) (super-new) (init-field [x 0] [y 0])
(define/public (copy) (new point% [x x] [y y]))
(define/public (show) (format "<point% ~a ~a>" x y))
(define/public (custom-write out) (write (show) out))
(define/public (custom-display out) (display (show) out))))
(define circle%
(class point% (super-new) (inherit-field x y) (init-field [r 0])
(define/override (copy) (new circle% [x x] [y y] [r r]))
(define/override (show) (format "<circle% ~a ~a>" (super show) r))
(define/override (custom-write out) (write (show) out))
(define/override (custom-display out) (display (show) out))))