?

Log in

No account? Create an account

Символическое - Ваши рубидии уже у кобальта во ртути

Jul. 2nd, 2014

04:53 pm - Символическое

Previous Entry Share Next Entry


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

#!/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:

[User Picture]
From:fatoff
Date:July 3rd, 2014 06:28 am (UTC)
(Link)
Полезность, предположительно, очень полезная.
Читаемость, очевидно, очень малочитаемая.
Расскажи.
(Reply) (Thread)
[User Picture]
From:spamsink
Date:July 3rd, 2014 06:40 am (UTC)
(Link)
Я читаемость намеренно не сокращал; вон, даже массивы mask и limit не переименовал. Последняя строка поста - подсказка.
(Reply) (Parent) (Thread)
[User Picture]
From:fatoff
Date:July 3rd, 2014 06:48 am (UTC)
(Link)
До терминала далеко тянуться, квадрат рисует?
(Reply) (Parent) (Thread)
[User Picture]
From:spamsink
Date:July 3rd, 2014 06:56 am (UTC)
(Link)
Это символ кавайности U+1F4A0, официально выглядит как ромб со слегка узорчатыми краями с точкой внутри; на телефоне у меня показывается как цветок.
(Reply) (Parent) (Thread)
[User Picture]
From:fatoff
Date:July 3rd, 2014 07:21 am (UTC)
(Link)
Символ каравайности:

(Reply) (Parent) (Thread)