Idiomatically determine all the characters that can be used for symbols: Difference between revisions
Content added Content deleted
(added a general description for "symbols" to the task's requirements.) |
Walterpachl (talk | contribs) (ooRexx added) |
||
Line 20: | Line 20: | ||
<br> |
<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}}== |
=={{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: |
Any Unicode character or combination of characters can be used for symbols in Perl 6. Here's some counting rods and some cuneiform: |