Palindrom-Sätze

Aus ProgrammingWiki

(define string-first (lambda (zk) (substring zk 0 1))) (define string-last (lambda (zk) (let ([n (string-length zk)]) (substring zk (- n 1) n)))) (define string-left (lambda (zk n) (substring zk 0 n))) (define string-right (lambda (zk n) (let ([m (string-length zk)]) (substring zk (- m n) m)))) (define string-car (lambda (zk) (string-ref zk 0))) (define string-cdr (lambda (zk) (substring zk 1 (string-length zk)))) (define string-cons (lambda (z zk) (string-append (string z) zk))) (define char-pos (lambda (z zk) (if (equal? (string z) (string-first zk)) 1 (+ 1 (char-pos z (string-cdr zk)))))) (define char-in-string? (lambda (z zk) (cond [(= (string-length zk) 0) #f] [(equal? (string z) (string-first zk)) #t] [else (char-in-string? z (string-cdr zk))])))

Eine Recherche im Internet führt uns schnell zu ganzen Sätzen, die vor- und rückwärts gelesen gleich lauten, auch wenn deren Sinn oft fragwürdig ist. Wir wollen derartige Sätze als Palindrom-Sätze bezeichnen.
Hier einige Beispiele:

Nie solo sein!
Regal mit Sirup pur ist im Lager!
Eine güldne, gute Tugend: Lüge nie!
O Genie, der Herr ehre dein Ego!
Nie leg Raps neben Spargel ein!
Eine Horde bedrohe nie!
Vitaler Nebel mit Sinn ist im Leben relativ.

Entwickeln Sie ein Prädikat, das nur dann #t zurückgibt, wenn ein Palindrom-Satz übergeben wird.
Dabei soll nicht zwischen Groß- und Kleinschreibung unterschieden werden. Für den Palindrom-Test sind nur Buchstaben und Umlaute relevant. Alle weiteren Zeichen, wie Ziffern, Satz-, Leer- und Sonderzeichen, bleiben unberücksichtigt.

Hinweis: Auch hier stehen die Sprachelemente string-car, string-cdr und string-cons zur Verfügung.

(define palindrom-satz? (lambda (zk) ...))

(palindrom-satz? "Nie leg Raps neben Spargel ein!")

ausführen

Zurück zu musizierenden Chinesen und Schüttelwörtern.