4 lines
125 B
Scheme
4 lines
125 B
Scheme
|
(define s "alphaBETA")
|
||
|
|
(list->string (map char-upcase (string->list s)))
|
||
|
|
(list->string (map char-downcase (string->list s)))
|