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