42 bottles of rum on the wall

Really my first obfu and yet not really an obfu, but I hope you like rum just as I do ...

        $bottles
          =42;
          @o=(
      "Take one ".
     "down, pass ".
    "it around     ",
   "\n");  $wall="1 ".
  "bottles of rum 2\n";
 sub        r {print @_};
 sub        rum{$_=$wall;
 s/(\d)/$_[$1-1]/g;s/s//s
 unless $_[0]-1; print;};
 do{rum$bottles,"on the "
 ."wall";rum$bottles;r(@o
 );$bottles--;rum$bottles
 if$bottles;print @o[-1];
 }while $bottles; <DATA>;
 r<DATA>;__DATA__ bottles

No more rum ...
[download]

Comment on 42 bottles of rum on the wall Download Code

Replies are listed 'Best First'.
Re: 42 bottles of rum on the wall by Kage (Scribe) on Oct 20, 2002 at 20:50 UTC
Kage belches. Mmm, Rum is good for the bellah. :-) “A script is what you give the actors. A program is what you give the audience.” ~ Larry Wall	[reply]