99 Bottles of Beer/Lisp: Difference between revisions
Content deleted Content added
No edit summary |
|||
Line 96:
(rec 99)</lang>
=={{header|Ol}}==
<lang ol>
(setq nn 99)
(let loop ((n nn))
(print n " bottles of beer on the wall,")
(print n " bottles of beer.")
(print "Take one down, pass it around, ")
(if (eq? n 1)
(begin
(print "No more bottles of beer on the wall.")
(print))
(begin
(print (- n 1) " bottles of beer on the wall,")
(print)
(loop (- n 1)))))
(print "No more bottles of beer on the wall,")
(print "No more bottles of beer.")
(print "Go to the store and buy some more,")
(print nn " bottles of beer on the wall.")
</lang>
=={{header|PicoLisp}}==
|