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