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 21:02, 21 March 2014
, 10 years agoooRexx added
(added a general description for "symbols" to the task's requirements.) |
Walterpachl (talk | contribs) (ooRexx added) |
||
Line 20:
<br>
=={{header|ooRexx}}==
<lang oorexx>/*REXX program determines what characters are valid for REXX symbols.*/
/* copied/adjusted from REXX */
a='' /*set symbol characters " " */
do j=0 for 2**8 /*traipse through all the chars. */
_=d2c(j) /*convert decimal number to char.*/
if datatype(_,'S') then a=a || _ /*Symbol char? Then add to list.*/
end /*j*/ /* [?] put some chars into a list*/
say ' symbol characters: ' a /*display all symbol characters.*/</lang>
{{out}}
<pre>
symbol characters: !.0123456789?ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz </pre>
=={{header|Perl 6}}==
Any Unicode character or combination of characters can be used for symbols in Perl 6. Here's some counting rods and some cuneiform:
|