racket class类示例代码

代码语言:racket

所属分类:其他

代码描述:racket class类示例代码

代码标签: 示例

下面为部分代码预览,完整代码请点击下载或在bfwstudio webide中打开

#lang racket
(define fish%
 
(class object%
   
(init size) ; initialization argument
   
(super-new) ; superclass initialization
   
;; Field
   
(define current-size size)
   
;; Public methods
   
(define/public (get-size)
      current
-size)
   
(define/public (grow amt)
     
(set! current-size (+ amt current-size)))
   
(define/public (eat other-f.........完整代码请登录后点击上方下载按钮下载查看

网友评论0