99 Bottles of Beer/Lisp: Difference between revisions

{{collection|99 Bottles of Beer}}

[[99 Bottles of Beer]] done in Lisp-languages

 

<!-- still missing:

__toc__

 

(if (zp n)

nil

(1- n)

(if (= n 2) 0 1))

 

(loop for bottles from x downto 1

do (format t "~a bottle~:p of beer on the wall~@

~V[No more~:;~:*~a bottle~:p of~] beer on the wall~2%"

bottles (1- bottles))))

and then just call

 

The [http://www.lispworks.com/documentation/HyperSpec/Body/22_c.htm FORMAT function] is probably the most baroque (i.e. featureful almost to a fault) function in Common Lisp.

To really drive this point home, try replacing each instance of <tt>~D</tt>

* <tt>~:P</tt> is for English plurals: it prints <tt>s</tt> if the last argument wasn't 1; it prints nothing otherwise. There's also <tt>~@P</tt> for <tt>y</tt>/<tt>ies</tt>, in case you were worried about that.

Note, by the way, how the emoticons <tt>:*~D</tt> and <tt>:P</tt> have shown up in the format string. FORMAT is so powerful, it's even self-aware about how silly it is.

Bit of a beginner in Lisp, but this seems to work:

(defun beer-verse (count)

"Recurses the verses"

(beer-verse (- count 1))))

(beer-verse 99)

<!-- missing here:

-->

 

(println n " bottles of beer on the wall," n " bottles of beer. Take one down, pass it around. ")

(println (- n 1) "bottles of beer on the wall!"))

" bottles of beer on the wall" (rec ( - bottles 1))))(list bottles))

 

 

(define nn 99)

 

"Go to the store and buy some more, "

nn " bottles of beer on the wall.")

 

(case N

(0 "No more beer")

(prinl "Take one down, pass it around,")

(prinl (bottles (dec 'N)) " on the wall.")

 

{ number --> string }

0 -> "No more beer"

X -> (let Msg (bottles-h X)

(do (output "~A on the wall~%~A~%Take one down, pass it around~%~A on the wall~%~%" Msg Msg (bottles-h (- X 1)))

 

when (n > 0)

prn n " bottles of beer on the wall"

prn n-1 " bottles of beer on the wall"

prn ""