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 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!

Name:

eMail:

URL:

Security Code:
  
Comment: