mirror of
https://github.com/2martens/uni.git
synced 2026-05-06 11:26:25 +02:00
Beide buchstabiere Funktionen funktionieren nun auch mit kleinen Buchstaben.
This commit is contained in:
@ -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))))
|
||||
)
|
||||
))
|
||||
Reference in New Issue
Block a user