99 bottles of beer: Difference between revisions
Added perl
m (→The simple solution: Removed namespace usage. Changed to do-while loop.) |
(Added perl) |
||
Line 596:
}
}</java>
=={{header|Perl}}==
<perl>#!/usr/bin/perl -w
map {
print $_ . " bottles of beer on the wall,\n";
print $_ . " bottles of beer.\n";
print "Take one down,\n";
print "Pass it around.\n";
print --$_ . " bottles of beer on the wall.\n\n";
} reverse (1..99);
</perl>
=={{header|Python}}==
| |||