I was browsing the 99 bottles of beer site and saw someone had submitted a minimal (but grammatically incorrect for "1 bottle") Perl version at 140bytes.
So, I had a play, and came up with these:
# minimalist, grammatically incorrect (126 bytes) $c=' bottles of beer';$d=' on the wall';$i=99;warn"$i$c$d,\n$i$c,\nTak +e one down and pass it around,\n",--$i,"$c$d\n\n"while$i # minimalist, grammatically correct (167 bytes) $_=' bottles of beer';$d=' on the wall';$i=99;sub f{$i-1?s/e\b/es/:s/s +//;$_};warn$i.f."$d,\n$i".f.",\nTake one down and pass it around,\n", +--$i||'No',f."$d\n\n"while$i
Anyone got any better ones?
.02
cLive ;-)
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Golf: Back to those damn beer bottles again...
by Anonymous Monk on Mar 16, 2003 at 05:49 UTC | |
Re: Golf: Back to those damn beer bottles again...
by benn (Vicar) on Mar 17, 2003 at 21:58 UTC | |
by cLive ;-) (Prior) on Mar 17, 2003 at 23:07 UTC | |
by benn (Vicar) on Mar 18, 2003 at 01:18 UTC | |
Re: Golf: Back to those damn beer bottles again...
by mojotoad (Monsignor) on Mar 17, 2003 at 19:27 UTC |
Back to
Meditations