The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]



Вариант для распечатки  
Пред. тема | След. тема 
Форум Разговоры, обсуждение новостей
Режим отображения отдельной подветви беседы [ Отслеживать ]

Оглавление

Выпуск Rakudo Star 2018.10, дистрибутива Perl 6 , opennews (??), 13-Ноя-18, (0) [смотреть все]

Сообщения [Сортировка по времени | RSS]


31. "Выпуск Rakudo Star 2018.10, дистрибутива Perl 6 "  +/
Сообщение от Денис Александрович (?), 14-Ноя-18, 07:42 
Тим Тоутди как раз и призван писать более лаконичный и минималистичный код. При этом, код не должен терять в читабельности.
Ответить | Правка | Наверх | Cообщить модератору

35. "Выпуск Rakudo Star 2018.10, дистрибутива Perl 6 "  +/
Сообщение от Анонимусс (?), 14-Ноя-18, 12:20 
Да мало ли к чему "призван" и чего код "не должен". Дана возможность нагородить всякого и эта возможность будет использована. Может и не со зла или выпендрёжа, но от этого не легче. Вобщем, осталось двоякое впечатление от языка, возможно стоило глубже в него погрузиться, чтобы ощутить и понять всю прелесть.
Ответить | Правка | Наверх | Cообщить модератору

36. "Выпуск Rakudo Star 2018.10, дистрибутива Perl 6 "  +/
Сообщение от Денис Александрович (?), 14-Ноя-18, 13:07 
Было бы замечательно примеры плохого кода увидеть, чтоб можно было разобраться вместе. TIMTOWTDI и его отсутствие это как техническая и художественная литература на иностранном языке. Нужен уровень определённый чтоб без словаря читать, быть продуктивным и получать удовольствие от работы.
Ответить | Правка | Наверх | Cообщить модератору

37. "Выпуск Rakudo Star 2018.10, дистрибутива Perl 6 "  +2 +/
Сообщение от КГБ СССР (?), 14-Ноя-18, 17:41 
Это либо дано, это не дано. Если ты видишь красоту в таком классическом примере, то ты полюбишь Perl:


$_='ev
                                       al("seek\040D
           ATA,0,                  0;");foreach(1..3)
       {<DATA>;}my               @camel1hump;my$camel;
  my$Camel  ;while(             <DATA>){$_=sprintf("%-6
9s",$_);my@dromedary           1=split(//);if(defined($
_=<DATA>)){@camel1hum        p=split(//);}while(@dromeda
ry1){my$camel1hump=0      ;my$CAMEL=3;if(defined($_=shif
        t(@dromedary1    ))&&/\S/){$camel1hump+=1<<$CAMEL;}
       $CAMEL--;if(d   efined($_=shift(@dromedary1))&&/\S/){
      $camel1hump+=1  <<$CAMEL;}$CAMEL--;if(defined($_=shift(
     @camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if(
     defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME
     L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h
      ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@
      camel1hump){chomp;$Camel=$_;y/LJF7\173\175`\047/\061\062\063\
      064\065\066\067\070/;y/12345678/JL7F\175\173\047`/;$_=reverse;
       print"$_\040$Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y
        /LJF7\173\175`\047/12345678/;y/12345678/JL7F\175\173\0 47`/;
         $_=reverse;print"\040$_$Camel\n";}';;s/\s*//g;;eval;   eval
           ("seek\040DATA,0,0;");undef$/;$_=<DATA>;s/\s*//g;(   );;s
             ;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__   \124
               \1   50\145\040\165\163\145\040\157\1 46\040\1  41\0
                    40\143\141  \155\145\1 54\040\1   51\155\  141
                    \147\145\0  40\151\156 \040\141    \163\16 3\
                     157\143\   151\141\16  4\151\1     57\156
                     \040\167  \151\164\1   50\040\      120\1
                     45\162\   154\040\15    1\163\      040\14
                     1\040\1   64\162\1      41\144       \145\
                     155\14    1\162\       153\04        0\157
                      \146\     040\11     7\047\         122\1
                      45\15      1\154\1  54\171          \040
                      \046\         012\101\16            3\16
                      3\15           7\143\15             1\14
                      1\16            4\145\163           \054
                     \040            \111\156\14         3\056
                    \040\         125\163\145\14         4\040\
                    167\1        51\164\1  50\0         40\160\
                  145\162                              \155\151
                \163\163                                \151\1
              57\156\056

А если не видишь, то выбирай сердцем пихтон.

Ответить | Правка | К родителю #35 | Наверх | Cообщить модератору

40. "Выпуск Rakudo Star 2018.10, дистрибутива Perl 6 "  +/
Сообщение от КГБ СССР (?), 14-Ноя-18, 21:15 
> Это либо дано, это не дано.

Небыстрофикс: либо дано, либо не дано.


А вот интересно, как бы любители пихтона писали такую программку с верблюдами. :)

Ответить | Правка | Наверх | Cообщить модератору

41. "Выпуск Rakudo Star 2018.10, дистрибутива Perl 6 "  +/
Сообщение от Ку (?), 15-Ноя-18, 00:17 
Красиво!

Но при этом есть понимание, что вкурить это как следует с легкомысленным подходом не получится.
Реальное мастерство оттачивается на реальных задачах.

С возрастом мышление становится весьма утилитарным - зачем делать на этом, когда можно на другом ,знакомом, в 3 раза быстрее.

Поэтому - о да, верблюд крут, но проходим мимо. Увы.

Ответить | Правка | К родителю #37 | Наверх | Cообщить модератору

42. "Выпуск Rakudo Star 2018.10, дистрибутива Perl 6 "  +/
Сообщение от КГБ СССР (?), 15-Ноя-18, 01:11 
Ну… Понятно, что хакеры Перла в обыденной жизни пишут не [только] программы для рисования верблюдов. :) Это просто иллюстрация возможностей языка и особенностей его синтаксиса.
Ответить | Правка | Наверх | Cообщить модератору

44. "Выпуск Rakudo Star 2018.10, дистрибутива Perl 6 "  +/
Сообщение от Денис Александрович (?), 15-Ноя-18, 13:17 
Двачую этого. Подобные вещи часть культуры языка:
    Joke Modules
    Mailing List Theatre
    JAPHs
    Obfus
    Golf
    Poetry
    April Fools

Почитайте "The Lighter Side of Perl Culture (Part I): Introduction" на перлмонкс. Интересно

Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру