15 lines
261 B
Racket
15 lines
261 B
Racket
#lang racket
|
|
|
|
(define fish%
|
|
(class object%
|
|
(super-new)
|
|
|
|
;; an instance variable & constructor argument
|
|
(init-field size)
|
|
|
|
;; a new method
|
|
(define/public (eat)
|
|
(displayln "gulp!"))))
|
|
|
|
;; constructing an instance
|
|
(new fish% [size 50])
|