Das allgemeine zufällige Kfz-Kennzeichen

Aus ProgrammingWiki

Archivierte Version vom 2012-09-30T08:41:30+00:00. Aktuelle Version

Eine Lösungsidee besteht darin, zunächst eine zufällige Zeichenkette aus zwei Großbuchstaben zu erzeugen. Aus dieser kann nun eine Teil-Zeichenkette gewonnen werden, deren Länge zufällig mit 1 oder 2 festgelegt wird.

Lokale Wertbindungen mit dem Sprachelement `let`

Zur übersichtlichen Implementation ist es ratsam, die aus zwei zufällig gewählten Großbuchsteben bestehende Zeichenkette an eine lokale Variable zu binden. Lokale Wertbindungen werden mit dem Sprachelement let in einer Liste definiert.

Beispiel:

(define lokal
  (lambda (n)
    (let ([x 5] [y 4])
      (* n x y))))

(lokal 10)

Implemetation des Kennzeichen-Generators

Nun ist die Rückgabe eines allgemeinen zufälligen Kfz-Kennzeichens kein Problem:

(define alphabet "ABCDEFGHIJKLMNOPQRSTUVWXYZ")

(define zufallskennzeichen
  (lambda (kuerzel)
    (let ([zk (string-append
               (string (string-ref alphabet (random (string-length alphabet))))
               (string (string-ref alphabet (random (string-length alphabet)))))])
      (string-append (string-upcase kuerzel)
                     "-"
                     (substring zk 0 (+ 1 (random 2)))
                     " "
                     (number->string (+ 1 (random 9999)))))))

(zufallskennzeichen "DD")

Zurück zu Prozeduren mit Zeichenketten.

Das allgemeine zufällige Kfz-Kennzeichen

Lokale Wertbindungen mit dem Sprachelement let

Implemetation des Kennzeichen-Generators

Suche

Lokale Wertbindungen mit dem Sprachelement `let`