Voting
Category
real language
Bookmarking
Language Bobo
| Date: | 04/20/05 |
| Author: | Bayard W. Wenzel |
| URL: | n/a |
| Comments: | 0 |
| Info: | n/a |
| Score: |  (3.00 in 26 votes) |
The author (below) created the language. "Bobo" is Spanish for idiot.
## 99.bb v1.2
## Bayard W. Wenzel
# some handy macros
/nprint {"\n" add print} def
/space {"\n" print} def
/dec {dup get 1 sub def} def
/class-define {{get invoke} bind pop-dict} def
# i will use the bobo object protocol! it is cool.
/new-bar {
13 /bar-dict create-dict
/count 0 def
/lyric-type "I'm a computer, I can't decide what to say," def
/set-count {/count exch def} def
/set-lyric-type {/lyric-type exch def} def
# proper grammar counts
/bottle-thing {
/i exch rdef
i 1 eq {
i " bottle" add print
} {
i " bottles" add print
} if-else
} def
# and, the meat of it!
/beer-lyrics {
/i exch rdef
i bottle-thing " of beer on the wall," nprint
i bottle-thing " of beer!" nprint
lyric-type nprint
i 1 sub bottle-thing " of beer on the wall." nprint space
} def
/final-lyrics {
"0 bottles of beer on the wall," nprint
"0 bottles of beer." nprint
"Go into town, buy a new round," nprint
"Get some more bottles of beer on the wall!" nprint
} def
/consume {
count {
count beer-lyrics
/count dec
} {
final-lyrics
} if-else
} def
class-define
} def
/song {
/lyric-type exch rdef
/count exch rdef
/bar new-bar rdef
count /set-count bar
lyric-type /set-lyric-type bar
count 1 add {/consume bar} loop
} def
/messy "If one of those bottles should happen to fall," def
/thirsty "Take one down, pass it around," def
99 thirsty song
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