Das allgemeine zufällige Kfz-Kennzeichen

Aus ProgrammingWiki

;-- V. Berger -- (define element? (lambda (el ls) (cond [(null? ls) #f] [(equal? el (car ls)) #t] [else (element? el (cdr ls))]))) (define string-car (lambda (zk) (string-ref zk 0))) (define string-cdr (lambda (zk) (substring zk 1 (string-length zk)))) (define charpos (lambda (z zk) (letrec ([pos (lambda (zk n) (cond [(= (string-length zk) 0) 0] [(equal? z (string-car zk)) n] [else (pos (string-cdr zk) (+ n 1))]))]) (pos zk 1)))) (define korrekt? (lambda (proz . kuerzel) (let ([zk (apply proz kuerzel)]) (and (> (string-length zk) 5) (< (string-length zk) 12) (if (null? kuerzel) (equal? (substring zk 0 2) "GR") (equal? (substring zk 0 (string-length (car kuerzel))) (string-upcase (car kuerzel)))) (or (equal? (string-ref zk 1) #\-) (equal? (string-ref zk 2) #\-) (equal? (string-ref zk 3) #\-)) (or (equal? (string-ref zk 3) #\space) (equal? (string-ref zk 4) #\space) (equal? (string-ref zk 5) #\space) (equal? (string-ref zk 6) #\space)) (number? (string->number (substring zk (- (string-length zk) 1) (string-length zk)))))))) (define spacepos->list (lambda (proz anz . kuerzel) (if (= anz 0) () (let* ([ls (apply spacepos->list proz (- anz 1) kuerzel)] [zk (apply proz kuerzel)] [pos (charpos #\space zk)]) (if (element? pos ls) ls (cons pos ls))))))

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ßbuchstaben 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)

ausführen

Implementation des Kennzeichen-Generators

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

(define alphabet "ABCDEFGHIJKLMNOPQRSTUVWXYZ") (define zufallskennzeichen (lambda (kuerzel) ...))

(zufallskennzeichen "DD")

ausführen

Um uns von der Leistungsfähigkeit unseres Generators zu überzeugen, generieren wir nun eine große Anzahl von Kfz-Kennzeichen:

(define kennzeichentest (lambda (kuerzel anz) (if (= anz 0) 'ok (begin (display (zufallskennzeichen kuerzel)) (kennzeichentest kuerzel (- anz 1))))))

(kennzeichentest "DD" 100)

ausführen

Achtung! Wir können aber nicht garantieren, dass alle Kfz-Kennzeichen paarweise verschieden sind.

Zurück zu Prozeduren mit Zeichenketten und Listen.