... a dokłdnie to --$sto, ale o tym kiedy indziej, a może nawet wkrótce. Poniżej jedna reprezentantka z tych dziewięćdziesięciu dziewięciu. Jak robi się takie cuda? W pewnym sensie się ich nie robi, bo robią to za nas inni a my tylko spijamy śnieżnobiałą czapę piwnej piany.
;($:)
='.'^
"\~";
($~)=
"\@"|
"\(";
$^=')'^
('[');$/=
'`'|'.';$,=
'('^'}';$\=
'`'|'!';$:=
')'^'}';$~=
'*'|'`';$^=
'+'^'_';$/=
'&'|'@';$,=
'['&'~';$\=
','^'|';$:=
'.'^'~';$~=
'@'|'(';$^=
')'^'[';$/=
'`'|'.';$,=
'('^'}';#;#
='.'^
"\~";
($~)=
"\@"|
"\(";
$^=')'^
('[');$/=
'`'|'.';$,=
'('^'}';$\=
'`'|'!';$:=
')'^'}';$~=
'*'|'`';$^=
'+'^'_';$/=
'&'|'@';$,=
'['&'~';$\=
','^'|';$:=
'.'^'~';$~=
'@'|'(';$^=
')'^'[';$/=
'`'|'.';$,=
'('^'}';#;#
Oto przepis na sukces.
Weź garść piwnych dropsów. Niech będą to te lepsze, co je Acme robi. Zamieszaj perłową łyżką. Ale nie ża bardżo, bo nicz nie żobaczysz. Wrzuć wszystko do kształtnej butelki i podawaj, gdy witasz się z gąską.
A w skrócie wygląda to tak:
-
#!/usr/bin/perl
-
-
use strict;
-
use warnings;
-
-
-
my $ninety_nine = <<'BURP';
-
$==pop||99;--$=;sub
-
_{($;=($=||No)." bottle"."s"x!!--$=." of beer")." on the wall"}
-
print+_,", $;!
-
Take one down, pass it around,
-
",_,"!
-
-
"while++$=
-
BURP
-
-
-
Compact => 1,
-
Shape => 'bottle2',
-
} );
-
-
-
# wersja dla prawdziwych piwnych smakoszy:
-
-
Compact => 1,
-
ShapeString => hjoin_shapes(2,
-
(get_eye_string('bottle2'))x6),
-
SourceString => $ninety_nine } );
Sponosrem dzisiejszego programu jest: 99 Bottles of Beer
__EDIT__
No to jeszcze polacam to:
-
$a=
-
"cpuu
-
\bmft p
-
\bg cff
-
\bs";$b
-
="po ui
-
\bf xbm
-
\bm";$c="
-
Ypv ublf p
-
\bof epxo qb
-
\btt ju bspvoe";
-
$a =~ s/\n//;$a =~
-
s/\s+/ /g; $b =~
-
s/\n// ; $b =~
-
s/\s+/ /g;$c =~
-
s/\n// ; $c =~
-
s/\s+/ /g;$a =~
-
y/b-z/a-z/;$b =~
-
tr/b-z/a-z/;$c =~
-
tr/b-z/a-z/ ; for(
-
$d=100;$d>0;$d--){
-
print"$d $a $b $d"
-
" $a $b.\n";} $x =
-
"cjc"; $y="dobbz";
Żródło: Language Perl ::99 Bottles of Beer
Dodaj komentarz, czubatkowiczu: