Idiomatically determine all the lowercase and uppercase letters: Difference between revisions
Idiomatically determine all the lowercase and uppercase letters (view source)
Revision as of 15:24, 29 November 2020
, 3 years agoadd FreeBASIC
(→{{header|Haskell}}: Used Data.List.Split chunksOf (rather than defining one by hand) for a little more focus.) |
(add FreeBASIC) |
||
Line 202:
ABCDEFGHIJKLMNOPQRSTUVWXYZ
abcdefghijklmnopqrstuvwxyz
</pre>
=={{header|FreeBASIC}}==
<lang freebasic>enum lettercase
LOWER = -1, UPPER = 1, NOTLETTER = 0
end enum
function letter_case( ch as string ) as byte
'exploits the fact that ucase and lcase consider non-letters to be
'both upper and lower case
if ucase(ch)=lcase(ch) then return NOTLETTER
if ch = ucase(ch) then return UPPER
return LOWER
end function
dim as uinteger i
for i = 0 to 255
if letter_case(chr(i)) = LOWER then print chr(i);
next i
print
for i = 0 to 255
if letter_case(chr(i)) = UPPER then print chr(i);
next i
print</lang>
{{out}}
<pre>
abcdefghijklmnopqrstuvwxyz
ABCDEFGHIJKLMNOPQRSTUVWXYZ
</pre>
|