RosettaCodeData/Task/String-case/Potion/string-case.potion

26 lines
540 B
Plaintext

lowercase = (str) :
low = ("")
str length times (i) :
low append(if (65 <= str(i) ord and str(i) ord <= 90) :
"abcdefghijklmnopqrstuvwxyz"(str(i) ord - 65)
. else :
str(i)
.)
.
low join("")
.
uppercase = (str) :
upp = ("")
str length times (i) :
upp append(if (97 <= str(i) ord and str(i) ord <= 122) :
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"(str(i) ord - 97)
. else :
str(i)
.)
.
upp join("")
.
lowercase("alphaBETA") print
uppercase("alphaBETA") print