Anonymous user
Terminal control/Unicode output: Difference between revisions
→{{header|Racket}}
(→{{header|Perl 6}}: add entry) |
|||
Line 91:
(prinl (char (hex "25b3")))
(quit "UTF-8 capable terminal required") )</lang>
=={{header|Racket}}==
<lang racket>
#lang racket
(displayln
(if (regexp-match? #px"(?i:utf-?8)"
(or (getenv "LC_ALL") (getenv "LC_CTYPE") (getenv "LANG")))
"\u25b3" "No Unicode detected."))
</lang>
=={{header|Tcl}}==
| |||