99 Bottles of Beer/Lisp: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 96: | Line 96: | ||
(rec 99)</lang> |
(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}}== |
=={{header|PicoLisp}}== |