Voting
Category
real language
Bookmarking
Language LiLi
(The most current LiLi version!!)
| Date: | 09/27/07 |
| Author: | Martin Beckmann |
| URL: | http://www.htw-dresden.de/~s58006 |
| Comments: | 0 |
| Info: | http://littlisp.sourceforge.net |
| Score: |  (4.33 in 3 votes) |
(defun bottleno (1) " bottle"
| bottleno _ " bottles")
(defun take-beer-down (0) (print "Go to the store buy some more ;)")
| take-beer-down (n) (print (s+ n (bottleno n) " of beer on the wall."))
(print "Take one down, pass it around,")
(take-beer-down (- n 1)))
(defun s+ (s1 s2)
;this is a function designed for use with Implicit Reduce Evaluation enabled!
(conc (str s1) (str s2)))
(IRE-enable)
(bottleno 99)
Download Source | Write Comment
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