Voting

Category

real language

Bookmarking

Del.icio.us Digg Diigo DZone Earthlink Google Kick.ie
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

Language Amber for parrot

Date:05/27/05
Author:Roger Browne
URL:n/a
Comments:0
Info:http://xamber.org/
Score: (2.96 in 28 votes)
-- Written in amber for parrot 0.2.0 - http://xamber.org/
-- by Roger Browne - roger AT eiffel.demon.co.uk

99.down_to(1, agent(n) do
   print_line(bottles(n) & " on the wall, " & bottles(n) & ".")
   if n = 0 then
      print_line("Go to the store and buy some more ... 99 bottles of beer.")
   else
      print("Take one down and pass it around, ")
      print_line(bottles(n - 1) & " on the wall.\n")
   end
end)

private
   bottles(n)
      do
         if n = 0 then
            result := "No more bottles of beer"
         elseif n = 1 then
            result := "1 bottle of beer"
         else
            result := n & " bottles of beer"
         end
      end
end

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!

Name:

eMail:

URL:

Security Code:
  
Comment: