Voting
Category
real language
Bookmarking
Language LiLi
| Date: | 05/22/05 |
| Author: | Martin Beckmann |
| URL: | n/a |
| Comments: | 0 |
| Info: | http://sourceforge.net/projects/littlisp |
| Score: |  (2.88 in 17 votes) |
;written in LiLi ( see http://sourceforge.net/projects/littlisp )
;LiLi is a small and unconventional lisp-dialect...
(defun bottleno (n)
(cond ((eq n 1) { bottle})
(t { bottles})))
(defun take-beer-down (bottles)
(cond ((eq bottles 0) (print {Go buy new beer!!!}))
(t (sequentially
(print (conc (str bottles) (conc (bottleno bottles) { of beer on the
wall.})))
(print {Take one down and pass it around,})
(take-beer-down (- bottles 1))
))))
(take-beer-down 99)
Download Source | Write Comment
Alternative Versions
| Version | Author | Date | Comments | Rate |
|---|---|---|---|---|
| The most current LiLi version!! | Martin Beckmann | 09/27/07 | 0 | |
Download Source | Write Comment
Add Comment
Please provide a value for the fields Name,
Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.
Please don't post large portions of code here! Use the form to submit new examples or updates instead!
Comments