From 39e6a1de52448e12e137d99d795a3664d10d539a Mon Sep 17 00:00:00 2001 From: Jim Martens Date: Sun, 17 Nov 2013 15:50:14 +0100 Subject: [PATCH] Beide buchstabiere Funktionen funktionieren nun auch mit kleinen Buchstaben. --- se3/G08_B03_Jim-2martens_Britta-2noack_Jan-Simon-0giesel.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/se3/G08_B03_Jim-2martens_Britta-2noack_Jan-Simon-0giesel.rkt b/se3/G08_B03_Jim-2martens_Britta-2noack_Jan-Simon-0giesel.rkt index d44a463..c8606b3 100644 --- a/se3/G08_B03_Jim-2martens_Britta-2noack_Jan-Simon-0giesel.rkt +++ b/se3/G08_B03_Jim-2martens_Britta-2noack_Jan-Simon-0giesel.rkt @@ -81,7 +81,7 @@ Abgebende: Jim 2martens, Britta 2noack, Jan-Simon 0giesel (let ([xs (string->list text)]) (if [empty? xs] '() - (cons (char->schlüssel (car xs)) (buchstabiere (list->string (cdr xs)))) + (cons (char->schlüssel (char_to_upperCase(car xs))) (buchstabiere (list->string (cdr xs)))) ) )) @@ -138,6 +138,6 @@ Abgebende: Jim 2martens, Britta 2noack, Jan-Simon 0giesel (let ([xs (string->list text)]) (if [empty? xs] '() - (cons (char->flagge (car xs)) (buchstabiereFlagge (list->string (cdr xs)))) + (cons (char->flagge (char_to_upperCase(car xs))) (buchstabiereFlagge (list->string (cdr xs)))) ) )) \ No newline at end of file