ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Babanov                    2:5020/5609.69 03 Apr 2001  03:16:54
 To : Alex Kuklin
 Subject : Re: Задачки для Perl"a
 -------------------------------------------------------------------------------- 
 

 Юґullo Alex!
 
  AK>     А существуют ли в природе задачки, ориентированные на решения
  AK> именно средствами Perl"a?
 
 Угу, задачка: напечатать "Just another Perl hacker," наиболее извратными
 способами ;))) Так, например:
 
 >>>>>>>>
 
 open-0;<0>=~/\W#/,print$'#Just another Perl hacker,
 
 >>>>>>>>
 
 print${$}if(($$=reverse+join+undef,reverse(($$=q$jsua thtonlyp yykcah ,$)=~
 /((??{'.?'x$?++}))/g))=~s<y|(\b\w)>($1?($$=!$$..!$$)?$&:uc$1:q.e..q.r.)ge);
 
 >>>>>>>>
 
 open-0;undef$ /,${_}=<0>,?<+.#(.+)?s?print+join' ',,eval$+:_,
 #<-#+reverse+split/\s+/unless$_=qq@LUcky, Pylernothy must@and
 y?dHeLmUr?O' hJaa?^q!!xor(s#(??{q?y?})#er#g)#->#$end is nigh!
 
 >>>>>>>>
 
 Если серьезно: задачки связанные с обработкой текста, фильтры (в том числе
 и для командной строки).
 
  AK>     Имеются в виду такие задания, решения которых которые "выгодно
  AK> оттенят" преимущества языка, как например взять файлик с текстом и
  AK> посчитать кол-во повторений каждого слова (без учета падежа) и вывести
  AK> в файлик в виде "слово : повторение". Решение - 3 строчки :-)
 
 Зачем же: chomp, $c{$_}++ while <>; print "$_ $c{$_}\n" for sort keys %c;
 
  AK>     Интересуют подобные задачки. И наверное не только меня? Они где-то
  AK> есть в систематизированном виде? Если так, то хорошо бы урлик.
 
 CYa!!!
 
 ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ   ЪДДДД 2:5020/5609.69 ДДДї
 іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER   і babanov@earthlink.net і
 ... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
 ---
  * Origin: Our governor can beat up your governor! (2:5020/5609.69)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Задачки для Perl"a   Alex Kuklin   02 Apr 2001 20:06:14   Re: Задачки для Perl"a   Alexander Babanov   03 Apr 2001 03:16:54