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 07:50, 11 September 2014
, 9 years ago→{{header|REXX}}: add ooRexx
(→{{header|Java}}: added Java) |
Walterpachl (talk | contribs) (→{{header|REXX}}: add ooRexx) |
||
Line 127:
=={{header|REXX}}==
===Classic Rexx(es)===
<lang rexx>/*REXX program determines what characters are valid for REXX symbols.*/
@='' /*set symbol characters " " */
Line 159 ⟶ 160:
symbol characters: !#$.0123456789?@ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyzÇüéâäàåçêëèïîìÄÅÉæÆôöòûùÿÖÜ¢£áíóúñÑ╡╢╖╞╟╨╤╥╙╘╒╓╫╪▐αßΓπΣσµτΦΘΩδ∞φ
</pre>
===ooRexx===
<lang rexx>/*REXX program determines what characters are valid for REXX symbols.*/
Parse Version v
Say v
symbol_characters='' /* start with no chars */
do j=0 To 255 /* loop through all the chars.*/
c=d2c(j) /* convert number to character*/
if datatype(c,'S') then /* Symbol char */
symbol_characters=symbol_characters || c /* add to list. */
end
say 'symbol characters:' symbol_characters /*display all */
</lang>
{{out}}
<pre>REXX-ooRexx_4.2.0(MT)_32-bit 6.04 22 Feb 2014
symbol characters: !.0123456789?ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz</pre>
=={{header|Tcl}}==
| |||