| Perl |
|
|
|
|
|
| #
Print words to '99 Bottles of Beer' -- S. Tanimoto |
||||
| $w = " on
the wall"; |
||||
| $t =
"\nTake one down and pass it around, "; |
||||
| for
(reverse(1 .. 99)) { |
||||
| print b($_),"$w,
",b($_),". ",$t,b($_-1),"$w.\n"; } |
||||
| sub b() { ($n) =
@_; |
||||
| $p = ($n != 1) ? "s" :
""; "$n bottle$p of beer"; } |
||||
