---------- Forwarded message ----------
Date: Sun, 26 May 2002 22:32:23 +0100
From: Matthew Byng-Maddick <[EMAIL PROTECTED]>
Reply-To: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Subject: [cam.pm] My public solution
This is not an entrant, but just to show that I think it's possible to do
something fun in that space, and with those constraints, this is my "entry"
for the scrutiny of the rest of the list. Constraints are that you will
need an ANSI-compliant terminal with at least 32 lines and 50 columns.
There is no constraint on the version of perl needed.
--------8<--------
/Cam.pm_-_Program_with_Beer/;sub
r{$d=~s/^(..)//;return(hex$1)};#
$e ="
02 0A
10 00
02 09
02 0F
03 08
02 10
03 09
02 0F
04 0A
020E040B020D040C020C040D020B020E
020A020E0C00";$e=~s/\s+//g;1;sub
g{$l=shift;$d=$e;while(length(
$d)){($n,$s1,$h,$s2)=(r,r,r,r)
;for(1..$n){$s++;$a=(31-$l)>$s
?chr(32):"@";print(chr(32)x$s1
,"#"x$h,${a}x($s2*2),"#"x$h,
"\n")}}}print"\e[2J";for$t((
reverse(2..28))){$s=0;sleep(
1);print"\e[0;0H";g($t);}$_=
"Qevax*Orre,*Cebtenz*Crey"
.",*Pnz.cz\n";s/\*/chr(32)
/eg;tr/a-zA-Z/n-za-mN-ZA-M
/;print;m{Cam.pm_-for_info
see_our_website_at:.....
.http://www.cam.pm.org/.
Real_Perl_mongers_drink_
Real_Beer._Join_CAMRA!!}
-------->8--------
(this is also available at http://colon.colondot.net/~mbm/cam.pm.txt)
Enjoy,
MBM
--
Matthew Byng-Maddick <[EMAIL PROTECTED]> http://colondot.net/
