Idiomatically determine all the characters that can be used for symbols: Difference between revisions
Content deleted Content added
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}}==
|