99 Bottles of Beer

Voting

Bookmarking

Language SQR

Date:	04/20/05
Author:	Anonymous
URL:	n/a
Comments:	0
Info:	n/a
Score:	(3.50 in 4 votes)

! Ninety-Nine bottles of beer on the wall
! SQR version
! by Dan Arcari 11/04/2003
!
! SQR is a miserable, but useful report-writing language 
! often found in the Oracle world (PeopleSoft, especially).

begin-program
 let #numbottles = 99

 while #numbottles > 0
  do formatString(#numbottles,$phrase)
  let $string = to_char(#numbottles) || $phrase || ' on the wall, ' || to_char(#numbottles) ||
$phrase || ', '
  print $string (+1,1)

  let #numbottles = #numbottles - 1

  do formatString(#numbottles,$phrase)
  let $string = 'take one down, pass it around, ' || to_char(#numbottles) || $phrase || ' on the
wall.'
  print $string (+1,1)

  position (+2)
 end-while
end-program


begin-procedure formatString(#num,:$phrase)
 if #num <> 1
  let $phrase = ' bottles of beer'
 else
  let $phrase = ' bottle of beer'
 end-if
end-procedure

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