Prozeduren mit Zeichenketten

Aus ProgrammingWiki

Archivierte Version vom 2012-09-29T09:01:22+00:00. Aktuelle Version

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:

z.B.: mbox{string-car:} string \longmapsto char

(define string-car
  (lambda (zk)
    (string-ref zk 0)))

(string-car "Informatik")

Mein individuelles Kfz-Kennzeichen

Aktuelles deutsches Kfz-Kennzeichen aus dem Landkreis Rastatt (Baden-Württemberg)

Viele Autofahrer legen goß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 zurückgibt.

Beispiel:

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

(define string-cdr
  (lambda (zk)
    (substring zk 1 (string-length zk))))

(define string-last
  (lambda (zk)
   (string-ref zk (- (string-length zk) 1))))

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

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

Prozeduren mit Zeichenketten

Weitere Selektoren für Zeichenketten

Mein individuelles Kfz-Kennzeichen

Suche