Prozeduren mit Zeichenketten

Aus ProgrammingWiki

;-- M. Hielscher / Chr. Wagenknecht -- (define random-maker (let* ((multiplier 48271) (modulus 2147483647) (apply-congruence (lambda (current-seed) (let ((candidate (modulo (* current-seed multiplier) modulus))) (if (zero? candidate) modulus candidate)))) (coerce (lambda (proposed-seed) (if (integer? proposed-seed) (- modulus (modulo proposed-seed modulus)) 19880214)))) (lambda (initial-seed) (let ((seed (coerce initial-seed))) (lambda args (cond ((null? args) (set! seed (apply-congruence seed)) (/ (- modulus seed) modulus)) ((null? (cdr args)) (let* ((proposed-top (ceiling (abs (car args)))) (exact-top (if (inexact? proposed-top) (inexact->exact proposed-top) proposed-top)) (top (if (zero? exact-top) 1 exact-top))) (set! seed (apply-congruence seed)) (inexact->exact (floor (* top (/ seed modulus)))))) ((eq? (cadr args) 'reset) (set! seed (coerce (car args)))) (else (display "random: unrecognized message") (newline)))))))) (require-library 'sisc/libs/srfi/srfi-19) (import srfi-19) (define random (random-maker (time-nanosecond (current-time))))

Inhaltsverzeichnis 1 Weitere Selektoren für Zeichenketten 2 Generierung von Benutzernamen und Passwörtern 3 Kfz-Kennzeichen 3.1 Das persönliche Kfz-Kennzeichen 3.2 Das zufällige Kfz-Kennzeichen 3.3 Zum Weiterarbeiten: Das allgemeine zufällige Kfz-Kennzeichen

Weitere Selektoren für Zeichenketten

In Anlehnung an die Selektoren car / cdr für Listen sollen zunächst analoge Selektoren für Zeichenketten entwickelt werden. Dabei ist genau auf deren Definitions- und Wertebereich zu achten. Man spricht in diesem Zusammenhang von der Signatur einer Prozedur:

Beispiel:

string-car:

	(define string-car (lambda (zk) (string-ref zk 0))) (string-car "Informatik") ausführen
	(define string-cdr (lambda (zk) (substring zk 1 (string-length zk)))) (string-cdr "Informatik") ausführen
	(define string-last (lambda (zk) (string-ref zk (- (string-length zk) 1)))) (string-last "Informatik") ausführen

Generierung von Benutzernamen und Passwörtern

Der Administrator eines Computernetzwerkes möchte die Festlegung von Benutzernamen und Passwörtern für eine größere Anzahl von Benutzern automatisieren. Dazu legt er fest: Der Benutzername setzt sich aus den ersten drei Buchstaben des Vornamens und dem kompletten Nachnamen zusammen. Diese Zeichenkette wird grundsätzlich klein geschrieben. Das Passwort zur Erstanmeldung soll aus dem ersten Buchstaben des Vornamens und dem letzten Buchstaben des Nachnamens bestehen. Beide Zeichen sollen Kleinbuchstaben sein und den Zahlenwert einschließen, der der Summe aller Zeichen im Vor- und Nachnamen entspricht.

Beispiel einer Netzwerkanmeldung

Beispiel:

> (benutzername "Beatrix "Berger")
--> "beaberger"
> (passwort "Beatrix "Berger")
--> "b13r"

Implementieren Sie beide Prozeduren.

Hinweis:

Im ProgrammingWiki können folgende Scheme-Prozeduren genutzt werden:

(string-downcase <zk>) ; ... Konvertierung einer Zeichenkette in Kleinbuchstaben
(string-upcase <zk>)   ; ... Konvertierung einer Zeichenkette in Großbuchstaben

(define benutzername (lambda (vorname nachname) (string-downcase (string-append (substring vorname 0 3) nachname))))

(benutzername "Beatrix" "Berger")

ausführen

(define passwort (lambda (vorname nachname) (string-downcase (string-append (string (string-car vorname)) (number->string (+ (string-length vorname) (string-length nachname))) (string (string-last nachname))))))

(passwort "Beatrix" "Berger")

ausführen

(define login (lambda (vorname nachname) (cons (benutzername vorname nachname) (passwort vorname nachname))))

(login "Beatrix" "Berger")

ausführen

Kfz-Kennzeichen

Das persönliche Kfz-Kennzeichen

Viele Autofahrer legen großen Wert auf ein ganz individuelles polizeiliches Kennzeichen an ihrem Fahrzeug. Häufig soll es die Anfangsbuchstaben des Vor- und Nachnamens sowie den Geburtstag und den Geburtsmonat beinhalten.

Schreiben Sie eine Prozedur, die die persönliche Daten entgegennimmt und das gewünschte Kennzeichen als Zeichenkette für den Landkreis Görlitz in Großbuchstaben zurückgibt.

Beispiel:

> (kennzeichen "Romy" "Berger" '(14 02 1988))
--> "GR-RB 142"

(define kennzeichen (lambda (vorname nachname datum) (string-upcase (string-append "GR-" (string (string-car vorname)) (string (string-car nachname)) " " (number->string (car datum)) (number->string (cadr datum))))))

(kennzeichen "Romy" "Berger" '(14 02 1988))

ausführen

Das zufällige Kfz-Kennzeichen

Persönliche Wunsch-Kennzeichen sind leider oft vergeben. Nun muss das Kennzeichen aus zufällig gewählten Buchstaben und Zahlen generiert werden. Wir experimentieren deshalb mit Zufallszahlen. Dazu nutzen wir die einstellige Prozedur random:

(random 100)

ausführen

Dabei stellen wir fest: (random <max>) gibt eine ganze Zufallszahl zurück mit .
Mit der nachfolgenden nullstelligen Prozedur zufallszahl lässt sich also eine zufällige ganze Zahl mit erzeugen:

(define zufallszahl (lambda () (+ 1 (random 10))))

(zufallszahl)

ausführen

Nun können wir auch zufällige Kfz-Kennzeichen generieren. Dazu vereinbaren wir:

• Dem Landkreiskürzel "GR" sollen (zunächst) immer zwei zufällig gewählte Großbuchstaben folgen.
  Hier sind im Gegensatz zu realen Kennzeichen alle Buchstabenkombinationen zulässig.
• Die darauf folgende Zufallszahl muss im Intervall liegen.

Erstellen Sie die nullstellige Prozedur zufallskennzeichen, die für den Landkreis Görlitz zufällige Kfz-Kennzeichen erzeugt. Nutzen Sie dazu die Variable alphabet, mit der eine Zeichenkette aus allen Großbuchstaben definiert wird:

(define alphabet "ABCDEFGHIJKLMNOPQRSTUVWXYZ") (define zufallskennzeichen (lambda () (string-append "GR-" (string (string-ref alphabet (random (- (string-length alphabet) 1)))) (string (string-ref alphabet (random (- (string-length alphabet) 1)))) " " (number->string (+ 1 (random 9999))))))

(zufallskennzeichen)

ausführen

Zum Weiterarbeiten: Das allgemeine zufällige Kfz-Kennzeichen

Es ist durchaus zulässig, dass dem Landkreiskürzel nur ein Buchstabe folgt.
Verallgemeinern Sie die Prozedur zufallskennzeichen in der Form, dass ein oder zwei Buchstaben hinter einem beliebigen Landkreiskürzel auftreten können.

Zur Problemlösung.