Re: pearls

[OnGeboren <ongeboren@kotnet.org>]

Zaaron, vij i tova:

#!/usr/bin/perl
for(;print"\e[2J";$d--){for$i(0..31){for(0..7){$|=1;$c=cos$d/($P=4*atan2(1,1));
$s=sin$d/$P;(1,2,4,8,16,32,64,128)[$_]&(63,127,63,1,65,1,65,1,65,1,65,1,65,1,65
,1,63,31,63,1,1,1,65,1,1,1,65,1,1,127,65,127)[$i]&&print"\e[",25+int$c*($Y=-4+
int$i/4)-$s*($X=($i%4-2)*9+$_),";",40+int$s*$Y+$c*$X,"H*"}}select('','','',.1)}


az lichno go namiram za neveroyatno ;)

On Monday 27 January 2003 13:51, ZaaRoN wrote:
> heheheh OnGeboren ;)
>
>
> $/=""; for(split(//,<DATA>)){($a)=$_=~/([\w\d\s])/ ;
> $@.=$a;}$@=~s/[\s\n]+//gim;$@=~s/tf/t\'f/;$@.="\n'";
>
> eval  ($@);
>
> __DATA__
>           ()
>           ()*$@
>           (*&))&
>           )&)()&}{@
>           }{%}%   }#{
>           %!}%{     !!)
>           (p)(#       $)&
>    !      #$*!(         ))!%
>    !      #}#!$           {}{
>    !$!#$%r)(%@%@%{{@#!%@#%@{{~@#
>    !@#in)&!)(&#%@%$%@{}{!|}{|{|}{?
>    !//,./.,?><?,/.,t f@#%&)(&)&)&)!@
>    !      >??#<
>    !      ?(*^#
>    $^#>
>    [;\\!;'                        '
>    .'][;[]#]                      -o
>    )*&)^   )@#                     $%
>    )&^&^     *&*                    $
>    &^r^$     #t@%                   !)
>    !@#$!       !(@$&               <y
>    ?><"@        {t{}!              (*
>    {}!%#        *$&#@'            @&$
>    )$@^+         }{\\.]/,      )+\]$}
>    *$*!!          )(^w!#%][\{{;\<>/
>    *&)[;\           *^!#%[\,.'o$@^
>        []              @%)!@!#$%
>          #
>
>        |-----Original Message-----
>        |From: owner-humor@lists.nat.bg
>        |[mailto:owner-humor@lists.nat.bg] On Behalf Of OnGeboren
>        |Sent: Sunday, January 26, 2003 1:52 PM
>        |To: humor@lists.nat.bg
>        |Subject: pearls before swine
>        |
>        |
>        |
>        |--
>        |perl -e '$_="w Oe.nnnGyue zb ooo r";$_.=$1,print$2while
>        |s/(..)(.)//;print"\n";'
>        |--
>        |This message has been scanned for viruses and
>        |dangerous content by MailScanner, and is
>        |believed to be clean.

-- 
perl -e '$_="w Oe.nnnGyue zb ooo r";$_.=$1,print$2while s/(..)(.)//;print"\n";'