Character codes: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 522: | Line 522: | ||
<lang smalltalk>($a asInteger) displayNl. "output 97" |
<lang smalltalk>($a asInteger) displayNl. "output 97" |
||
(Character value: 97) displayNl. "output a"</lang> |
(Character value: 97) displayNl. "output a"</lang> |
||
=={{header|SNOBOL4}}== |
|||
{{works with|Macro Spitbol}} |
|||
{{works with|Snobol4+}} |
|||
{{works with|CSnobol}} |
|||
Modern Snobols have built-in char( ) but not asc( ) or ord( ). Rolling either one is easy. These are based on examples in the Snobol4+ tutorial, and work with the native (1-byte) charset. |
|||
<lang SNOBOL4> define('chr(n)') :(chr_end) |
|||
chr &alphabet tab(n) len(1) . chr :s(return)f(freturn) |
|||
chr_end |
|||
define('asc(str)c') :(asc_end) |
|||
asc str len(1) . c |
|||
&alphabet break(c) @asc :s(return)f(freturn) |
|||
asc_end |
|||
* # Test and display |
|||
output = char(65) ;* Built-in |
|||
output = chr(65) |
|||
output = asc('A') |
|||
end</lang> |
|||
Output: |
|||
<pre>A |
|||
A |
|||
65</pre> |
|||
=={{header|Standard ML}}== |
=={{header|Standard ML}}== |