develooper Front page | perl.fwp | Postings from May 2003

Re: 99 bottles of beer on the wall

Casey West
May 23, 2003 13:56
Re: 99 bottles of beer on the wall
Message ID:
It was Friday, May 23, 2003 when Zed Lopez took the soap box, saying:
: OK, here's some pure frivolousness.
: has hundreds of examples of
: programs to output 99 bottles of beer on the wall, including several
: in Perl under:
: What's your lowest golf score to solve it?

It's not the smallest solution, but I find it esthetically pleasing.

  oqhms%z(##(|;;s;\n;;g=>s;(.);chr ord($1)+(ord($1)<76?-1:1);ge=>eval __END__
  No more bottles of beer on the wall.

But this exercise has become dull since I learned about HQ9+[0], and
subsequently wrote an interpreter[1] for the language.  Here is my entry in



  Casey West

Shooting yourself in the foot with Assembly Language 
You crash the OS and overwrite the root disk. The system administrator
arrives and shoots you in the foot. After a moment of contemplation,
the administrator shoots himself in the foot and then hops around the
room rabidly shooting at everyone in sight. Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About