not sure what you guys are using to do non-whitespace counting, but i don't feel like counting them all to give a number.
Character counting a la the internet.
You are rocking a 330, and you have a capitalization error on the 2nd-to-last line (I'm quibbling, I know, but that capital cost me 5 characters to get right).
not sure what you guys are using to do non-whitespace counting, but i don't feel like counting them all to give a number.Character counting a la the internet.
You are rocking a 330, and you have a capitalization error on the 2nd-to-last line (I'm quibbling, I know, but that capital cost me 5 characters to get right).
ah thanks=-). had to bump it up by 3 characters to fix that, and one other mistake: http://codepad.org/aDEAu5R6
edit: here's a c# version: http://ideone.com/S7Hcs5 clocks in at 382 characters.
edit2: managed to reduce it down to 338 characters.
Ah, but now you have a mistake in your output! You went from 1 bottle of beer to none, without passing it around.
He stole my beer!
z = concat
a = " bottle"
e = a ++ "s"
y = "o more"
b 0 = "n" ++ y ++ e
b 1 = "1" ++ a
b n = show n ++ e
c = " of beer"
d = c ++ " on the wall"
f 0 = z [ "N", y, e, d, ", ", b 0, c, ".\nGo to the store and buy some more, ", b 99, d, ".\n" ]
f n = z [ b n, d, ", ", b n, c, ".\nTake one down and pass it around, ", b $ n-1, d, ".\n\n" ]
main = mapM_ (putStr . f) [99,98..0]
260 nonwhitespaces using Haskell.
#define T ".\nTake one down and pass it around, "
#define B " bottles of beer"
#define b "1 bottle of beer"
#define W B" on the wall"
#define w b" on the wall"
int main(){for(int j=100;j--;)printf(j?j>1?"%d"W", %d"B:w", "b:"No more"W", no more"B,j,j),printf(j?j>1?j>2?T"%d"W".\n\n":T w".\n\n":T"no more"W".\n\n":".\nGo to the store and buy some more, 99"W".",j-1);}#define T ".\nTake one down and pass it around, "
#define B " bottles of beer"
#define b "1 bottle of beer"
#define W B" on the wall"
#define w b" on the wall"
int main(){for(int j=100;j--;)printf(j?j>1?"%d"W", %d"B:w", "b:"No more"W", no more"B,j,j),printf(j?j>1?j>2?T"%d"W".\n\n":T w".\n\n":T"no more"W".\n\n":".\nGo to the store and buy some more, 99"W".",j-1);return 0;}
215 non white space characters - thanks Ruby
i = 99
x = " bottles of beer"
y = x + " on the wall, "
z = "Take one down, pass it around, "
a = ".\n"
b = "no more "
while i > 1
q = i.to_s
r = (i - 1).to_s
puts q + y + q + x + a + z + r + y
i -= 1
end
q = i.to_s
puts q + y + q + x + a + z + b + y,"No more" + y + b + x + a + "Go to the store and buy some more, 99" + y
#include <fstream>
#include <iostream>
void main()
{
std::fstream s;
s.open("b", std::ios::in);
while(s)
{
char c;
s.get(c);
std::cout << c;
}
}
160 characters. Yet I've got the feeling that this one doesn't count...
Nobody said we had to use a real language. Therefore, zero characters, using the newly created "bottles of beer" language..
The specification of the "bottles of beer" language states that:
An empty source file shall produce a program which prints out the lyrics of the "99 bottles of beer" song. The behaviour of non-empty source files is unspecified.
Thank you.
