99 Bottles of Beer

Voting

Bookmarking

Language GOO

Date:	04/20/05
Author:	Juri Pakaste
URL:	n/a
Comments:	1
Info:	http://www.googoogaga.org/
Score:	(3.03 in 119 votes)

; GOO version of 99 bottles of beer
; by Juri Pakaste <juri@iki.fi>
; GOO information at http://www.googoogaga.org/

(df bottles (n)
        (cat
                (cond ((= n 0) "No more bottles")
                        ((= n 1) "One bottle")
                        (#t (cat (num-to-str n) " bottles")))
        " of beer"))

(df bow (n)
        (cat (bottles n) " on the wall"))

(do 
        (fun (n) 
                (post (bow n)) 
                (post "\n") 
                (post (bottles n)) 
                (post "\nTake one down, pass it around\n") 
                (post (bow (1- n))) 
                (post "\n\n")) 
        (range-by 100 >= 1 1-))

Download Source | Write Comment

Alternative Versions

Comments

anonymousgoo said on 04/30/08 04:34:14

me and my friend made up goo language GOO goo goo ga goo goo goo ga goo goo goo ga gooooooooooooooo

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 1216 variations