Bergervei/Prozeduren mit Zeichenketten

Wiki-Quelltext dieser Seite.

<language>Scheme</language>
== Weitere Selektoren für Zeichenketten ==

In Anlehnung an die Selektoren <tt>car</tt> / <tt>cdr</tt> 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'':

<blockquote>
z.B.: <math>\mbox{string-car:} string \longmapsto char</math>
</blockquote>

<table border="1" cellspacing="1" cellpadding="4">
<tr>
<td width="500" align="center" valign="top">[[Bild:String_car.GIF]]</td>
<td width="800" align="left" valign="top">
<code id="5066bb1a26893">
(define string-car
  (lambda (zk)
    (string-ref zk 0)))
</code>

<run id="5066bb1a26a6d">(string-car "Informatik")</run>
</td>
</tr>
<tr>
<td width="500" align="center" valign="top">[[Bild:String_cdr.GIF]]</td>
<td width="800" align="left" valign="top">
<code id="5066bb1a26900">
(define string-cdr
  (lambda (zk)
    (substring zk 1 (string-length zk))))
</code>

<run id="5066bb1a26ace">(string-cdr "Informatik")</run>
</td>
</tr>
<tr>
<td width="500" align="center" valign="top">[[Bild:String_last.GIF]]</td>
<td width="800" align="left" valign="top">
<code id="5066bb1a26963">
(define string-last
  (lambda (zk)
   (string-ref zk (- (string-length zk) 1))))
</code>

<run id="5066bb1a26b2c">(string-last "Informatik")</run>
</td>
</tr>
</table>

== Mein individuelles Kfz-Kennzeichen ==

[[Bild:Kennzeichen_Deutschland.jpg|miniatur|hochkant=1.5|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.<br />

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"

<code id="5066bb1a269d8">
(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)))))
</code>

<run id="5064c75c8b913">
(kennzeichen "Romy" "Berger" '(14 02 1988))
</run>