99 Bottles of Beer

Voting

Bookmarking

Language Neurosis

Date:	04/10/11
Author:	Marinus Oosters
URL:	n/a
Comments:	0
Info:	http://matches.ucc.asn.au/neurosis/
Score:	(3.80 in 10 votes)

#link :bottlecount {_, !ct} -> {
    #sift -1 -> ?echo 99 bottles
             x> ?echo (#sift 0 -> ?echo No more x> ?echo !ct, !ct)
                      (#sift 1 -> ?echo bottle x> ?echo bottles, !ct), !ct
};

#link :verse {_, !ct} -> {
    #alias $.ofbeer, (?echo (:bottlecount !ct) of beer);
    #alias $.ofbeer2, (?echo (:bottlecount (#subtract !ct 1)) of beer);
    #alias $.takedown, (#sift 0 -> ?echo Go to the store and buy some more
                                x> ?echo Take one down and pass it around, !ct);
    ?echo .ofbeer on the wall #n 
          .ofbeer #n 
          .takedown #n 
          .ofbeer2 on the wall #n 
};

#link :verses {_, !ct} -> {
    #out (:verse !ct);
    ?if (#greater !ct 0) { :verses (#subtract !ct 1) }
};

:verses 99;

#exit

Download Source | Write Comment

Alternative Versions

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!

one program in 1500 variations