Comment utiliser set! sur "quoi que ce soit" dans le régime?

Question

J'utilise DrRacket.

Cela fonctionne:

(define foo 1) 
(set! foo 2) 
foo ;;returns 2 

Mais ici je veux foo pour revenir 2:

(define foo 1) 
(define (setmachine variable newvalue) 
    (set! variable newvalue)) 
(setmachine foo 2) 
foo ;; returns 1 

Comment puis-je faire le travail setmachine?

Answer 1

Imaginez que je fais:

(define bla 10) 
(define test bla) 
(set! test 20) 

Qu'est-ce que la troisième ligne faire? Est-ce que cela change bla? c'est comme ça que vous supposez que votre setmachine devrait fonctionner.

(set! variable newvalue) 

Cela change la variable nommée variable, pas la variable nommée foo. Votre set-machine fonctionne, mais pas comme vous le vouliez!

(define (setmachine variable newvalue) 
    (display variable)  ; displays the value to variable 
    (set! variable newvalue) ; changes the binding to the value of newvalue 
    (display variable))  ; displays the value of variable (same as newvalue) 

(define foo 1) 
(setmachine foo 2) ; displays 1, then 2 

il l'a fait muter Voir variable, mais pas foo. En fait, si vous l'avez passé 1 au lieu de foo cela fonctionne toujours car il passe les arguments par valeur. Vous ne l'avez pas demandé de changer foo. Voici comment faire:

(define-syntax syntaxset 
    (syntax-rules() 
    ((_ name expression) 
    (set! name expression)))) 

(define foo 1) 
(syntaxset foo 2) 
foo ; ==> 2 

Ceci n'est plus une procédure. En fait ce qui se passe est que, avant l'exécution du programme raquette aura modifié le code (syntaxset foo 2)-(set! foo 2)

Maintenant, si vous essayez de faire (syntaxset 1 2) de redéfinir tous les accurences de 1 dans votre code pour évaluer à 2 il ne fonctionne pas depuis il devient (set! 1 2) et set! s'attend à ce que le premier argument soit une expression symbolique.