1
0
mirror of https://github.com/2martens/uni.git synced 2026-05-06 19:36:26 +02:00

Beide buchstabiere Funktionen funktionieren nun auch mit kleinen Buchstaben.

This commit is contained in:
Jim Martens
2013-11-17 15:50:14 +01:00
parent 9f32168252
commit 39e6a1de52

View File

@ -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))))
)
))