99 Bottles of Beer

Voting

Bookmarking

Language Fril

Date:	07/13/05
Author:	Patrick Cain
URL:	n/a
Comments:	1
Info:	http://www.enm.bris.ac.uk/ai/software.html
Score:	(2.38 in 13 votes)

((bottle 99))
((bottle X)
        (bottle Y)
        (sum Y -1 X))
((beer 0)
        (cprintf stdout "No more bottles of beer"))
((beer 1)
        (cprintf stdout "1 bottle of beer"))
((beer X)
        (less_eq 2 X)
        (cprintf stdout "%d bottles of beer" X))
((wall 0)
        (beer 0)
        (cprintf stdout " on the wall. ")
        (beer 0)
        (cprintf stdout "...\nGo to the store and buy some more...")
        (beer 99)
        (cprintf stdout ".\n\n"))
((wall X)
        (less_eq 1 X)
        (sum Y 1 X)
        (beer X)
        (cprintf stdout " on the wall, ") 
        (beer X)
        (cprintf stdout ".\nTake one down and pass it around, ")
        (beer Y)
        (cprintf stdout ".\n\n"))
?((repeat) 
        (bottle N)
        (wall N)
        (less_eq N 0))

Download Source | Write Comment

Alternative Versions

Comments

PennyMiles said on 05/25/10 13:55:05

If you are in a not good position and have no money to go out from that point, you will require to take the <a href="http://lowest-rate-loans.com/topics/mortgage-loans">mortgage loans</a>. Just because it would help you unquestionably. I get college loan every year and feel great because of it.

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!

one program in 1500 variations