Voting

Category

real language

Bookmarking

Del.icio.us Digg Diigo DZone Earthlink Google Kick.ie
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

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

Alternative Versions

VersionAuthorDateCommentsRate
1Martin Beckmann05/22/050

Comments

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!

Name:

eMail:

URL:

Security Code:
  
Comment: