是否可以在方案中制作切换功能？

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

，如果你喜欢，你可以做同样的方式？