運行命令

Question

我具有以下爲一個簡單的類（堆棧）代碼：

#lang racket 

(define stackClass% 
    (class object% 
    (super-new) 
    (init-field (mystack '(A B C)))  

    (define/public (push n) 
     (set! mystack (cons n mystack))) 

    (define/public (pop) 
     (cond [(empty? mystack) #f] 
      [else (define res (car mystack)) 
        (set! mystack (rest mystack)) 
        res])) 

    (define/public (show) 
     mystack) 

    mystack ; I want to output mystack at time of creation of class object; not working here; 

    )); end class; 


; USAGE: 
(define sc (new stackClass%)) 
(send sc push 1) 
(send sc push 2) 
(send sc show) 
(send sc pop) 
(send sc show) 

輸出：

'(2 1 A B C) 
2 
'(1 A B C) 

我要輸出mystack在創建對象的類的時間。但是，它在這段代碼中不起作用，儘管沒有顯示錯誤。

使用以下代替(init-field (mystack '(A B C)))也於事無補：

(init (L '(A B C))) 
(define mystack L) 

我怎麼能運行在類創建時的一段代碼？

Answer 1

是的，你的代碼運行良好。另外，「mystack」正在被評估。但是，它不產生輸出。如果你想顯示一些東西，你可以使用其中一個功能。嘗試在代碼中用(println mystack)代替mystack。