Wie zu verwenden Zähler im Schema

Ich versuche ein Programm zu schreiben, wo ein Arzt sieht nur 5 Patienten und dann das Programm beendet. Jetzt ist es nicht zu Ende und es hält Fragen für den nächsten Patienten. Ignorieren Sie die anderen in der Arzt-Treiber-loop-Verfahren. Ich hinzufügen, um zu zählen, sich an diesem Verfahren, aber ich denke, es geht zurück auf null, jedes mal. Wie kann ich dieses Problem beheben?

(define count 0)

(define (new-patient counter)
  (if (= counter 5) (write-line 'doctor has seen 5 patients today so the day is now over)
    (visit-doctor (ask-patient-name))))

(define (doctor-driver-loop name earlier-responses)
  (newline)
 (write '**)
  (let ((user-response (read)))
   (cond ((equal? user-response '(goodbye))
         (write-line (list 'goodbye name))
         (write-line '(see you next week))
         (new-patient (+ 1 count)))
      (else (write-line (reply (responses-list earlier-responses user-response) user-response))
            (doctor-driver-loop name (responses-list earlier-responses user-response))))))

(define (visit-doctor name)
  (write-line (list 'hello name))
  (write-line '(what seems to be the trouble?))
  (doctor-driver-loop name initial-earlier-response))
  • Du bist nie zu aktualisieren count, so dass jedes mal, wenn Sie anrufen new-patient Sie vorbei sind 1 als argument. doctor-driver-loop nehmen sollten der Graf als ein argument, und pass (+ 1 count) wenn es eine Rekursion.
InformationsquelleAutor tlauer | 2013-02-28
  1. 0

    Versuchen, ersetzen Sie diese Zeile:

    (new-patient (+ 1 count))

    Durch diese beiden Zeilen:

    (set! count (+ 1 count))
(new-patient count)

    In Ihrer aktuellen code count wird immer haben einen Wert von null für jede iteration doctor-driver-loop ist, weil Ihr Wert wurde nicht aktualisiert - die (+ 1 count) Teil fügt man count ohne ändern count, und das nächste mal doctor-driver-loop aufgerufen, count null wieder.

    Bewusst sein, dass dies eine schnelle Lösung, aber nicht die ideale Lösung. Für den Anfang count sollte nicht festgelegt werden, wie eine Globale variable, stattdessen sollte es einen parameter, um den Treiber Schleife, übergeben bekommt, mit einem Anfangswert von null und inkrementiert beim Aufruf new-patient mit jedem Patienten, der bekommt verarbeitet.

    • gibt es einen Weg, um eine Zählung ohne set! ?
    • ja, übergeben Sie es als parameter von Anfang an, wie ich oben vorgeschlagen. Deklarieren Sie Sie nicht als global definieren, starten, löschen (define count 0) und von dort aus arbeiten.
    • Ich folgte dem, was Sie gesagt haben - löschen der angegebenen Anzahl, Hinzugefügt, zählen als ein parameter, um die Arzt-driver-Schleife, und legen Sie " 0 " in die visit-Arzt, wenn er anruft, Arzt-driver-Schleife. Das problem ist, dass Besuchs-Arzt aufgerufen wird, jedes mal gibt es einen neuen Patienten, so dass 0 immer weitergegeben werden, um die Arzt-driver-Schleife
    • Nein, don ' T pass 0 jedes mal, nur das erste mal jo nennen doctor-driver-loop. Von diesem Zeitpunkt an vorbei um zu zählen, und aktualisieren Sie es, wenn nötig. Es ist schwer zu erklären, ohne auf den vollständigen code, aber es ist besser so - so kann man es herausfinden, indem Sie sich.
    • Es funktioniert einfach nicht scheinen, um eine Stelle zu, wo kann ich es einstellen nur einmal...wo würde das sein, da ich rufe Doktor-Treiber-loop aus besuchen-Arzt, die aufgerufen wird, aus neu-Patienten...
    • Sie strukturieren sollte das Programm in einer Weise, dass der Ausgangspunkt (das Verfahren beginnt die Ausführung des Programms) übergeben bekommt einen Wert von 0, und von diesem Punkt aus alle aufeinander folgenden aufrufen an die Prozedur übergeben Sie den gleichen Zählwert und aktualisieren Sie Sie gegebenenfalls

    InformationsquelleAutor Óscar López
Schreibe einen Kommentar