Terminal control/Unicode output: Difference between revisions
Content added Content deleted
m (promoted to task) |
(→{{header|Perl 6}}: add entry) |
||
| Line 80: | Line 80: | ||
<lang Mathematica>If[StringMatchQ[$CharacterEncoding, "UTF*"], Print[FromCharacterCode[30000]], Print["UTF-8 capable terminal required"]] |
<lang Mathematica>If[StringMatchQ[$CharacterEncoding, "UTF*"], Print[FromCharacterCode[30000]], Print["UTF-8 capable terminal required"]] |
||
->田</lang> |
->田</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}}== |
=={{header|PicoLisp}}== |
||