diff options
Diffstat (limited to 'tests/reject/t99bott.nim')
-rw-r--r-- | tests/reject/t99bott.nim | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/tests/reject/t99bott.nim b/tests/reject/t99bott.nim new file mode 100644 index 000000000..4dfb11701 --- /dev/null +++ b/tests/reject/t99bott.nim @@ -0,0 +1,28 @@ +## 99 Bottles of Beer +## http://www.99-bottles-of-beer.net/ +## Nimrod version + +## Author: Philippe Lhoste <PhiLho(a)GMX.net> http://Phi.Lho.free.fr +# 2009-11-25 +# Loosely based on my old Lua version... Updated to current official lyrics. + +proc GetBottleNumber(n: int): string = + var bs: string + if n == 0: + bs = "No more bottles" + elif n == 1: + bs = "1 bottle" + else: + bs = $n & " bottles" + return bs & " of beer" + +for bn in countdown(99, 1): + const cur = GetBottleNumber(bn) #ERROR_MSG constant expression expected + echo(cur, " on the wall, ", cur, ".") + echo("Take one down and pass it around, ", GetBottleNumber(bn-1), + " on the wall.\n") + +echo "No more bottles of beer on the wall, no more bottles of beer." +echo "Go to the store and buy some more, 99 bottles of beer on the wall." + + |