[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
RE: pearls
Mda naistina ;)
Hubavoto na prednoto e che dava otgovor za smisyla na jivota vselenata i
vsicko ostanalo :P
p.s. I e primer kavo ne trqbva da se pravi po vreme na obedna pochivka
;=)
|-----Original Message-----
|From: owner-humor@lists.nat.bg
|[mailto:owner-humor@lists.nat.bg] On Behalf Of OnGeboren
|Sent: Tuesday, January 28, 2003 8:26 AM
|To: humor@lists.nat.bg
|Subject: Re: pearls
|
|
|Zaaron, vij i tova:
|
|#!/usr/bin/perl
|for(;print"\e[2J";$d--){for$i(0..31){for(0..7){$|=1;$c=c
|os$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";'
|
|--
|This message has been scanned for viruses and
|dangerous content by MailScanner, and is
|believed to be clean.
|
|