Scheme 中的继承类

Question

现在我研究 Scheme 的 OOP 部分。我可以像这样在 Scheme 中定义类:

(define (create-queue)
  (let ((mpty #t) 
        (the-list '()))

    (define (enque value)
      (set! the-list (append the-list (list value)))
      (set! mpty #f)
      the-list)

    (define (deque)
      (set! the-list (cdr the-list))
      (if (= (length the-list) 0) 
      (set! mpty #t))
      the-list)

    (define (isEmpty)
      mpty)

    (define (ptl)
      the-list)

    (define (dispatch method)
      (cond ((eq? method 'enque) enque)
        ((eq? method 'deque) deque)
        ((eq? method 'isEmpty) isEmpty)
        ((eq? method 'print) ptl)))

    dispatch))

(示例来自 css.freetonik.com)

我可以在Scheme中实现类继承吗？

Answer 1

好吧，我不会把它称为一个类，但那只是我。这只是闭包和原始方案。

Scheme本身没有对象系统。但是，Scheme 可以实现类系统。

如果您想使用 oop 系统，可以尝试为 Scheme 编写的几种系统。

Here是一个列出了几个的链接，当然还有其他的。