Можно ли включить функцию переключения в схему?

Question

В рубине можно создать простую функцию переключения следующим образом:

@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 
    ((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

Вы можете сделать это так же, если вы хотите:

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

Является ли это домашнее задание?