Das allgemeine zufällige Kfz-Kennzeichen

Aus ProgrammingWiki

Archivierte Version vom 2012-09-30T08:36:41+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.

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 in einer Liste mit dem Sprachelement let definiert.

Beispiel:

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

(lokal 10)

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

Suche