Talk:99 bottles of beer

Syntax highlighting

What's the story with syntax highlighting? I kind of like it, but are we going to use it on tasks from now on? --Mwn3d 12:23, 28 February 2008 (MST)

I'm ambivalent until we have more/better language support. However, if other folks don't find having some languages supported while others aren't, then I wouldn't mind seeing its use expanded. NevilleDNZ was going to work on on a means of importing Vim syntax highlighting scripts so that the syntax highlighter could be extended. I'd be curious how that's coming. --Short Circuit 21:02, 28 February 2008 (MST)

Common Lisp

The Common Lisp solution is ... not very good!

• there's some wiki quoting/escaping/formatting issue with "defun"
• it uses (- x 1), where (1- x) is shorter and probably more idiomatic
• it uses (> .. 0) instead of zerop
• it uses a 1-form if instead of when
• it's recursive when it really doesn't need to be
• it uses massive indentation
• it says "1 bottles of beer", when it's trivial to say "1 bottle of beer"
• it uses ~a (any text) instead of ~d (integer) for printing integers
• it doesn't leave a line between verses

 (defun bottle (n)
   (format t "~D bottle~:P of beer on the wall~%" n)
   (format t "~D bottle~:P of beer~%" n)
   (format t "Take one down, pass it around,~%")
   (format t "~D bottle~:P of beer on the wall~%~%" (1- n) (1- n)))
 (defun bottles (x)
   (loop for i from x downto 1 do (bottle i)))
 (bottles 99)