Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Parrot 0.0.10 released (deserving of song)

by dug (Chaplain)
on Mar 19, 2003 at 20:44 UTC ( [id://244453]=note: print w/replies, xml ) Need Help??


in reply to Parrot 0.0.10 released

I am endlessly impressed with the rapid progress of Parrot, and raise my glass to the contributers.

Song and drink for everyone. In pasm, of course ;-)
# Mmmm, beer good set I1, 99 # bottles of beer set I2, 1 # single bottle set S1, " of beer on the wall,\n" set S2, " of beer,\n" set S3, "Take one down, pass it around,\n" set S4, " of beer on the wall\n\n" set S5, " bottle" set S6, " bottles" set S7, "No more bottles of beer on the wall\n\n" set S8, "*Buuurrp*\n" branch n_bottles # start drinkin' n_bottles: print I1 print S6 print S1 print I1 print S6 print S2 print S3 dec I1 eq I1, I2, bottle_of # Aww, we're getting low print I1 print S6 print S4 ne I1, I2, n_bottles # keep on drinkin' bottle_of: print I1 print S5 print S4 branch one_bottle # bout time for a liver transplant one_bottle: print I1 # it's been fun print S5 print S1 print I1 print S5 print S2 print S3 print S7 print S8 end

-- dug

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://244453]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others browsing the Monastery: (3)
As of 2024-04-19 19:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found