Question

这是我到目前为止所做的，但我无法运行它，因为有一个错误，所以我不知道它是否有效，我正在尝试使用DrRacket中的面向对象编程创建自己的堆栈对象，我正在使用一个调度方法来调用我正确调用它们的不同过程。例如，首先我会创建一个堆栈然后我会推送并弹出到堆栈并且还能够打印它。

(define (make-stack)
  (define my-stack '())

(define (pop)
 (define (pop-helper my-stack)
  (let ((result (car  my-stack))))
   (set!  my-stack (cdr  my-stack))
  result)
 (pop-helper  my-stack))

(define (push)
(define (push-helper x  my-stack)
  (set!  my-stack (cons x  my-stack)))
(push-helper x  my-stack))
(define (empty?)
 (define (empty-helper  my-stack)
   (if (null?  my-stack) #t
      #f))
  (empty-helper my-stack))
(define (print)
(define (print-helper  my-stack)
  (if (empty?) '()
      (print (cdr  my-stack))))
  (print-helper  my-stack))

(define (dispatch method)
(cond 
  ((eq? method 'pop) pop)
  ((eq? method 'push) push)
  ((eq? method 'print) print)
  (else (lambda() (display "Unknown Request: ")(display method)(newline)))))
    dispatch)

提前感谢！

Answer 1

在两个过程中有两个语法错误，并且您不能将堆栈作为参数传递，它会遮蔽my-stack全局变量。这是修复：

(define (pop)
  (let ((result (car my-stack))) ; `let` brackets were off
    (set! my-stack (cdr my-stack))
    result))

(define (push x) ; `x` parameter was missing
  (set! my-stack (cons x my-stack)))

试图在DrRacket中实现我自己的堆栈对象

1 个答案: