| Lisp |
|
|
|
|
|
|
|
|
|
|
| ;;;
Print the words to 99 Bottles of beer. |
|||||||||
| (defun
b (n) |
|||||||||
| (format nil "~A bottle~A of
beer" |
|||||||||
| n (if (= n 1) ""
"s")) ) |
|||||||||
| (defun
bb (n) |
|||||||||
| (format t "~A on the wall, ~A.~%~A
~A.~%" |
|||||||||
| (b n)(b n) |
|||||||||
| "Take one down and pass it
around, " |
|||||||||
| (b (1- n)) ) |
|||||||||
| (if (> n 1) (bb (1- n))) ) |
|||||||||
| (bb 99) |
|||||||||
