ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Stupnik                   2:5020/400     08 May 2002  18:10:21
 To : All
 Subject : japhs
 -------------------------------------------------------------------------------- 
 

 Hi all!
 
 Дело опять было вечером.
 Делать было в общем-то мягко говоря есть чего,
 но так .... утомило. И тут пришла шальная мысль,
 и разнообразия ради была имплементирована.
 И до кучи еще две в прицепе.
 -------------N1
 #!/usr/bin/perl
 $_='    J u  u  ss ttt        aa  n   n  oo  ttt h  h eee rrr
         J u  u s    t        a  a nn  n o  o  t  h  h e   r  r
         J u  u  s   t        aaaa n n n o  o  t  hhhh ee  rrr
      J  J u  u   s  t        a  a n  nn o  o  t  h  h e   r  r
       JJ   uu  ss   t        a  a n   n  oo   t  h  h eee r  r
 
         ppp  eee rrr  l        h  h  aa   cc  k  k eee rrr
         p  p e   r  r l        h  h a  a c  c k  k e   r  r
         ppp  ee  rrr  l        hhhh aaaa c    kkk  ee  rrr   ,,,
         p    e   r  r l        h  h a  a c  c k  k e   r  r  ,,,
         p    eee r  r lll      h  h a  a  cc  k  k eee r  r   ,'
 
 ;for$r('(\S|^)\s{1,4}','(.)\1+','(\w+\s\w+\s*,?\s*){1,5}'){s/$r/$1/gsm}print
 ;
 
 -------------N2
 #!/usr/bin/perl
 for(qw(hacker perl another Just))
 {eval"package $_;@{[$l?'BEGIN{@ISA='.$l.'}':'']}
 sub p{(__PACKAGE__@{[$l?',shift->SUPER::p()':'']})};";$l=$_;}
 print"@{[(bless{},Just)->p]},";
 
 -------------N3
 #!/usr/bin/perl
 $L=1;$w=2;$u=3;$v=[4,8];${'"'}=[5,12,17];$c=[6,19];$p=7;$q=8;$j
 =[10,18];$g=[11,14,21];$t=[12,15,22];$r=14;$n=17;$e=21;$m=22;${
 '.'}=25;print join('',map{chr(ord($_)-2)}map{$i{++$x}?($_,$i{$x
 +1}?($i{$x+2}?($i{$x}, $i{++$x},$i{++$x}):($i{$x++},$i{$x++})):
 $i{$x++}):$_;}map{ref(${$_})?(shift@{${$_}},$z=$_,map{$i{$_}=$z
 }@{${$_}}):$_;$_}sort{(ref($$a)?$$a->[0]:$$a)<=>(ref($$b)?$$b->
 [0]:${$b})} grep {!/::|..|[^a-z."]/i && $$_=~/\d/} keys (%::));
 Смотрю я проспавшимися глазами на regexp, в grep-е в N3,
 и думаю... А как оно работает??? %)
 
 --
 Best regards,
   Konstantin.
 Brainbench MVP for perl
 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.Mail.Ru (2:5020/400)
 
 

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