Anonymous user
Terminal control/Unicode output: Difference between revisions
→{{header|Perl 6}}: add entry
m (promoted to task) |
(→{{header|Perl 6}}: add entry) |
||
Line 80:
<lang Mathematica>If[StringMatchQ[$CharacterEncoding, "UTF*"], Print[FromCharacterCode[30000]], Print["UTF-8 capable terminal required"]]
->田</lang>
=={{header|Perl 6}}==
<lang perl6>die "Terminal can't handle UTF-8"
unless first(*.defined, %*ENV<LC_ALL LC_CTYPE LANG>) ~~ /:i 'utf-8'/;
say "△";</lang>
{{out}}
<pre>△</pre>
=={{header|PicoLisp}}==
| |||