DrRacketで独自のスタックオブジェクトを実装しようとしています

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

2つのプロシージャで2つの構文エラーがあり、パラメータとしてスタックを渡すことはできません。グローバル変数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)))