wie Sie Variablen Werte zuweisen im Schläger?

wenn ich diese Liste

'((x 3) (y 4) (z 2))

wie vergebe ich 3 x, und y 4 und z 2 zu verwenden Mathematik zu tun, wie?

3 + x

oder

y + z

Dank

  • Der erste Teil Ihrer Frage suggeriert Sie wirklich wollen, eine Liste mit zitiert Symbole, aber der zweite Teil schlage vor, Sie wissen nicht viel über die s-exps und daher, dass Sie möglicherweise nach einer viel einfacheren Antwort. Wenn das letztere zutrifft, was Sie wollen, ist der erste Teil von Oscar ' s Antwort über let, und schauen Sie nicht auf den zweiten Teil.
InformationsquelleAutor asuran_zala | 2014-01-20
  1. 4

    Können Sie let zum deklarieren von lokalen Variablen in Scheme. Zum Beispiel, um Bindungen mit den gegebenen Werten in der Liste:

    (let ((x 3) (y 4) (z 2))
  (+ y z)) ; body

=> 6

    Nun können Sie auswerten eines Ausdrucks mit dem deklarierten Variablen in der <body> Teil. Sie können sogar erstellen Sie eine let aus einer Liste von Bindungen, zum Beispiel der Verwendung von Makros:

    (define-namespace-anchor a)
(define ns (namespace-anchor->namespace a))

(define-syntax my-let
  (syntax-rules ()
    [(_ lst exp)
     (eval `(let ,lst ,exp) ns)]))

(my-let '((x 3) (y 4) (z 2)) ; bindings as an association list
        '(+ y z))            ; expression to be evaluated

=> 6

    Das obige erstellt ein makro namens my-let der erhält eine Liste von Bindungen und Ausdruck bewertet werden, mit denen Bindungen, und gibt das Ergebnis der Auswertung.

    • Es ist früh am morgen, mein Kaffee-Becher fehlt, und ich kann nicht denken, ein Weg, um zu vermeiden, mit eval, also Vorschläge sind willkommen 🙂
    • Nur für den Willen, Sie können diese syntax-Regel: [(_ (quote lst) exp) ....] wo quote ist eine wörtliche, aber das ist natürlich etwas schummeln 😉 (Wenn Ihr my-let wird nicht funktionieren, wenn entweder die Liste ist zuerst einer Variablen zugewiesen und an my-let.)
    • Ich veränderte etwas meine code so, dass lst und exp können nun als Variable übergeben werden, solange exp ist ein zitierter Ausdruck
    InformationsquelleAutor Óscar López
  2. 1

    Eine einfache, unkomplizierte und tragbare Art und Weise zu definieren, einen accessor (in diesem Beispiel getval) mit assq:

    (define vars '((x 3) (y 4) (z 2)))
(define (getval sym) (cadr (assq sym vars)))

    oder jeglicher variation davon. Verwenden Sie dann wie folgt vor:

    (+ 3 (getval 'x))
=> 6

(+ (getval 'y) (getval 'z))
=> 6
    InformationsquelleAutor uselpa
Schreibe einen Kommentar