est-il possible de faire une fonction bascule dans le schéma?

Question

En ruby ​​vous pouvez créer une simple fonction à bascule comme ceci:

@switch = false 

def toggle 
    @switch = !@switch 
end 

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

Je me demande s'il est possible de le faire dans le schéma. Le plus proche que je peux obtenir est:

(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 

Merci.

Answer 1

Je voudrais écrire quelque chose comme ceci:

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

qui peut être invoqué comme ceci:

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

Une petite explication: le lambda externe est une fonction qui prend un état initial et retourne un autre fonction qui retourne cet état d'avant en arrière à chaque invocation. Notez que la fonction externe est invoquée immédiatement avec le #f sur la dernière ligne; Le commutateur est alors défini comme le résultat de cette invocation, la fonction interne capturant state dans une fermeture.

Vous pouvez aussi écrire quelque chose comme ceci:

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

make-switch prend ce que nous avions avant et l'enveloppe dans une autre fonction. Maintenant, ce que nous avons est une usine pour faire des commutateurs, chacun avec leur propre état interne. Nous pouvons donc écrire quelque chose comme ceci:

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

Et voir que chaque commutateur est indépendant de l'autre:

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

De même vous pourriez paramétrez make-switch pour définir l'état initial du commutateur, et ainsi sur.

Espérons que cela aide.

Answer 2

Vous pouvez le faire de la même façon si vous le souhaitez:

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

Est-ce devoir?