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

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

谢谢。

Answer 1

如果你愿意，你可以用同样的方式做：

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

这是作业吗？

Answer 2

我会写这样的东西：

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

可以这样调用：

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

一点解释：外部 lambda 是一个函数，它采用初始状态并返回另一个函数，该函数在每次调用时来回翻转该状态。请注意，外部函数将通过最后一行的 #f 立即调用；然后 switch 被定义为该调用的结果，内部函数在闭包中捕获 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 来设置开关的初始状态，以及打开和打开。

希望这有帮助。