XP is just a number PerlMonks

Re: 99 Bottles Of Beer (can't we do better)

by screamingeagle (Curate)
 on Feb 20, 2002 at 05:25 UTC ( #146505=note: print w/replies, xml ) Need Help??

in reply to 99 Bottles Of Beer (can't we do better)

well,if its golf we're playing , then a couple of minor changes saves a few lines :
```\$nBottles = (\$ARGV[0] > 0) ? \$ARGV[0] :100;
foreach (reverse(1 .. \$nBottles)) {
\$s = (\$_ == (1 || 2)) ? "" : "s";
print "\n\$_ bottle\$s of beer on the wall,\n\$_ bottle\$s of beer,\nTake
+one down, pass it around,\n" , (\$_ - 1)," bottle",((\$_ - 1) == 1) ? "
+ " : "s "," of beer on the wall\n";
}
print "\n*burp*\n";

Second Update Reduced by a couple more lines :
```\$nBottles = (\$ARGV[0] > 0) ? \$ARGV[0] :100;
foreach (reverse(1 .. \$nBottles)) {
print "\n\$_ bottle",(\$_ == (1 || 2)) ? "" : "s"," of beer on the wall,
+\n\$_ bottle",(\$_ == (1 || 2)) ? "" : "s"," of beer,\nTake one down, p
+ass it around,\n" , (\$_ - 1)," bottle",((\$_ - 1) == 1) ? " " : "s ","
+ of beer on the wall\n";}print "\n*burp*\n";
Update: fixed a typo (thanks to particle)

Create A New User
Node Status?
node history
Node Type: note [id://146505]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (2)
As of 2018-04-26 22:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My travels bear the most uncanny semblance to ...

Results (97 votes). Check out past polls.

Notices?