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 ;-)