99 Bottles of Beer

Voting

Bookmarking

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!

one program in 1500 variations