Символическое

[spamsink]

Мне всё надоело, и я написал скрипт

#!/usr/bin/env perl
@mask = (0,192,224,240);
@limit = (1<<7,1<<5,1<<4,1<<3);
while (@ARGV) {
$c = hex shift;
die if $c > 1114111;
$str = '';
while (1) {
        if ($c < $limit[length($str)]) {
                $cur = $c | $mask[length($str)];
                $str = chr($cur) . $str;
                last;
        } else {
                $cur = $c&63|128;
                $str = chr($cur) .$str;
                $c >>= 6;
        }
}
print $str;
}
print "\n";

По-моему, вполне 💠.

Comments

[fatoff.livejournal.com]

Полезность, предположительно, очень полезная.
Читаемость, очевидно, очень малочитаемая.
Расскажи.

[spamsink]

Я читаемость намеренно не сокращал; вон, даже массивы mask и limit не переименовал. Последняя строка поста - подсказка.

[fatoff.livejournal.com]

До терминала далеко тянуться, квадрат рисует?

[spamsink]

Это символ кавайности U+1F4A0, официально выглядит как ромб со слегка узорчатыми краями с точкой внутри; на телефоне у меня показывается как цветок.

[fatoff.livejournal.com]

Символ каравайности: