All streams
Search
Write a publication
Pull to refresh
0
0
Сергей Можайский @frenzytechnix

User

Send message
Вариант покороче:
print map{chr}'072097112112121032080114111103114097109109101114115032068097121033'=~/(.{3})/g;
За кадром осталось то, что позже я попытался адаптировать свое решение под новые тесткейсы. Но оно после этого заметно прибавило в размере, поэтому я бросил эту затею :)
Но в целом конкурс отличный, было весело. А разобраться в том, как на самом деле работают некоторые решения, очень даже интересно :)
если нет уверености, что можно не отвлекаться хотя бы часов 4-6

А после второго-третьего прерывания вообще пропадает всякое желание чем-либо заниматься, и в итоге садишься играть — отвлекания от игры не раздражают.
> Мою жену невозможно убедить, что если я работаю дома
> А с детьми вообще дома работать не получится

В свое время решил эту проблему так: арендовал комнатку в местном «бизнес-центре» и ездил работать туда. Город маленький, на дорогу уходило минут 15-20, а суммарные расходы на мини-офис не превышали $100 в месяц :)
Но без социализации тяжело. Бывает что упрешься в какую-то проблему, а обсудить ее попросту не с кем.
Вот тут забавное развлечение — предлагается угадать, какое из названий научной работы настоящее (взятое с arxiv.org), а какое — выдуманное на snarxiv:
snarxiv.org/vs-arxiv/
Угадать получается далеко не всегда :)
Из перечисленных читал только Келли Линк, весьма неплохие рассказы :)
Я себе заказывал с e-bay карты, которые шли в коробочной версии Fallout: New Vegas =) Минус у них один — рубашки у карт разные, поэтому играть ими проблематично.
image
Если на хостинге с апачем поддерживается mod_perl, то лучше разворачивать Mojolicious-приложение как PSGI-приложение через Plack. Возни немного, а скорость работы будет заметно выше.

Вот пример конфига, адаптированный под приложение из статьи.
<Perl>
    $ENV{PLACK_ENV} = 'production';
    $ENV{MOJO_HOME} = '/home/mojoex.am.pl';
    $ENV{MOJO_TEMPLATE_CACHE} = 0;
    $ENV{PERL5LIB} .= '/home/mojoex.am.pl/lib;/home/mojoex.am.pl/mojo'
</Perl>
<Location "/">
    SetHandler perl-script
    PerlHandler Plack::Handler::Apache2
    PerlSetVar psgi_app /home/mojoex.am.pl/script/habra
</Location>

Есть как минимум три соглашения о расстановке фигурных скобок в коде:

BSD style:
if(x == y)
{
  something();
}


GNU style:
if (x == y)
  {
    something ();
  }


K&R style:
if (x == y) {
  something();
}


Какой из них использовать — зависит от соглашений, принятых в компании либо заданных самим языком.
К примеру, в Perl согласно Perl Best Practices рекомендуется использовать K&R style.
Freeciv разрабатывается с 1996 года, так что она довольно стабильна. Текущая версия 2.3.2 выпущена в марте этого года. Поддерживается сингл и мультиплеер.
Это промт-стайл перевод фразы «your mileage may vary» :)
Jamestown поддерживает игру несколькими контроллерами. Пробовали играть втроем — на клавиатуре и двух мышках, все работало :)
Это для бесплатного Komodo Edit, в котором отсутствуют многие фичи из Komodo IDE.
Кстати, о расширениях.
Лично я пользуюсь вот этими:
Aero Theme — внешний вид под Windows становится намного приятнее
NST — показывает иерархию кода
TODO helper — показывает в отдельном окошке все комменты TODO/FIXME
Насколько я помню, UFS-разделы динамически ресайзить нельзя. Можно только увеличить их размер с помощью growfs.
А что за ситуация такая, когда действительно «нужно-нужно» ресайзить разделы на живой системе?
Для MySQL есть Spatial extensions, но по фичам они заметно уступают постгису.
Я в свое время юзал такую программку на Palm m515.
К тому же она была «программируемой» — можно было положить друг напротив друга Палм и пульт, а затем нажимать кнопки в интерфейсе программы и соответствующие кнопки на пульте.
Жаль, в современных девайсах ИК-портов больше не делают =)
my $fii=0, @FIL=(), $FIS=0, $pat, $file_text="";
Посмотрев на этот фрагмент, можно было бы ожидать, что все переменные создадутся в локальной области видимости. Ведь мы же написали «my»! Но на самом деле в локальной области видимости создастся только переменная $fii. Все остальные переменные будут глобальными.
С включенным use strict такого кода не могло бы быть — он выдаст ошибку при выполнении.
В общем, правильнее будет написать как-то так:
my ($fii, @FIL, $FIS, $pat, $file_text) = (0, (), 0, undef, "");
Написать говнокод на Perl проще, чем на других языках. И в первую очередь потому, что язык весьма гибкий и почти не ограничивает программиста.

Information

Rating
Does not participate
Location
Украина
Date of birth
Registered
Activity