Idiomatically determine all the characters that can be used for symbols: Difference between revisions
Idiomatically determine all the characters that can be used for symbols (view source)
Revision as of 23:14, 25 May 2024
, 1 month agoAdded Ada
m (→{{header|Wren}}: Changed to Wren S/H) |
(Added Ada) |
||
Line 17:
* [[Idiomatically_determine_all_the_lowercase_and_uppercase_letters|Idiomatically determine all the lowercase and uppercase letters]].
<br><br>
=={{header|Ada}}==
{{works with|Ada|95 and greater}}
<syntaxhighlight lang="ada">
with Ada.Strings.Maps; use Ada.Strings.Maps;
with Ada.Text_IO;
procedure Show_Valid_Identifiers is
Valid_First_Character : constant Character_Set := To_Set (Ranges => (1 => ('a', 'z'), 2 => ('A', 'Z')));
Valid_Last_Character : constant Character_Set := Valid_First_Character or To_Set (Ranges => (1 => ('0', '9')));
Valid_Middle_Character : constant Character_Set := Valid_Last_Character or To_Set ('_');
begin
Ada.Text_IO.Put_Line ("Valid for the first character: " & String (To_Sequence (Valid_First_Character)));
Ada.Text_IO.Put_Line ("Valid for any middle character: " & String (To_Sequence (Valid_Middle_Character)));
Ada.Text_IO.Put_Line ("Valid for the last character: " & String (To_Sequence (Valid_Last_Character)));
end Show_Valid_Identifiers;
</syntaxhighlight>
{{out}}
<pre>
Valid for the first character: ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
Valid for any middle character: 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz
Valid for the last character: 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
</pre>
=={{header|ALGOL 68}}==
|