是否可以在方案中製作切換功能？

Question

在Ruby中，你可以像這樣創建一個簡單的切換功能：

@switch = false 

def toggle 
    @switch = !@switch 
end 

toggle # => true 
toggle # => false 
toggle # => true 

我想知道是否有可能做到這一點的方案。我能得到的最接近的是：

(define a #f) 
(define (toggle a) 
    (cond ((eq? a #t) #f) 
     (else #t))) 

(define a (toggle a)) 
a # => #t 
(define a (toggle a)) 
a # => #f 
(define a (toggle a)) 
a # => #t 

謝謝。

(define switch #f) 
(define (toggle) 
    (set! switch (not switch)) 
    switch) 

這是功課：

Answer 1

我會寫這樣的事：

(define switch 
    ((lambda (state) 
    (lambda() 
     (begin 
     (set! state (not state)) 
     state))) 
    #f)) 

可以調用這樣的：

> (switch) 
#t 
> (switch) 
#f 
> (switch) 
#t 

一點解釋：外的λ是一個函數，它的初始狀態，並返回另一個函數在每次調用時都會前後翻轉該狀態。請注意，在最後一行上，#f立即調用外部函數;開關然後被定義爲這個調用的結果，內部函數在關閉中捕獲state。

你也可以寫這樣的事：

(define make-switch 
    (lambda() 
    ((lambda (state) 
     (lambda() 
     (begin 
      (set! state (not state)) 
      state))) 
    #f))) 

make-switch需要什麼我們以前並把它封裝在另一個功能。現在我們有一個製造開關的工廠，每個開關都有自己的內部狀態。因此，我們可以寫這樣的事：

(define switch-a (make-switch)) 
(define switch-b (make-switch)) 

而且看到每個開關獨立於其他的：

> (switch-a) 
#t 
> (switch-b) 
#t 
> (switch-b) 
#f 
> (switch-a) 
#f 

同樣，你可以參數化make-switch來設置交換機的初始狀態，並上。

希望這會有所幫助。

Answer 2

，如果你喜歡，你可以做同樣的方式？