Language Amber for parrot
|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
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!