[XSL-LIST Mailing List Archive Home] [By Thread] [By Date] [Recent Entries] [Reply To This Message]

Re: 99 bottles of beer

Subject: Re: 99 bottles of beer
From: "Andrew Welch" <andrew.j.welch@xxxxxxxxx>
Date: Mon, 5 Feb 2007 13:04:59 +0000
Re:  99 bottles of beer
On 2/5/07, Abel Braaksma <abel.online@xxxxxxxxx> wrote:
Andrew Welch wrote:
> After seeing M. David's post about the bottles of beer problem, I
> thought about how to solve this problem using XSLT 2.0.  Here's what
> came to mind first:

Hi Andrew,

let me try what came to mind second ;)
Here's my go on it in a single XPath statement. A bit less well-suited
for educational purposes. It shows nested for-loops in XPath, casting,
use of sequences+separator and some ways how not to code (it is exactly
an example of good programming practice ;)

<xsl:stylesheet version="2.0"
    xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
    xmlns:xs="http://www.w3.org/2001/XMLSchema">

    <xsl:output method="text" />
    <xsl:template match="/" name="main">
        <xsl:value-of select="
            for $i in reverse(1 to 99)
            return for $j in
                (' on the wall.',
                '.&#10;Take one down, pass it around',
                ' on the wall.&#10;' )

                return concat
                    ($i - xs:integer(ends-with($j, '&#10;')),
                    ' bottle', if ($i = 1) then '' else 's',
                    ' of beer', $j)
        " separator="&#10;"/>

    </xsl:template>
</xsl:stylesheet>

Nice! However a couple of small problems:


2 bottles of beer on the wall.
2 bottles of beer.
Take one down, pass it around
1 bottles of beer on the wall.
     ^^^^^^^

1 bottle of beer on the wall.
1 bottle of beer.
Take one down, pass it around
0 bottle of beer on the wall.
      ^^^^^^^^

You just need to modify it slightly:

<xsl:value-of select="for $i in reverse(1 to 3), $j in
              (' on the wall.',
              '.&#10;Take one down, pass it around',
              ' on the wall.&#10;' )

              return concat
                  ($i - xs:integer(ends-with($j, '&#10;')),
                  ' bottle', if ($i - xs:integer(ends-with($j,
'&#10;')) = 1) then '' else 's',
                  ' of beer', $j)"

separator="&#10;"/>

which gives:

2 bottles of beer on the wall.
2 bottles of beer.
Take one down, pass it around
1 bottle of beer on the wall.

1 bottle of beer on the wall.
1 bottle of beer.
Take one down, pass it around
0 bottles of beer on the wall.

cheers
andrew

Current Thread

PURCHASE STYLUS STUDIO ONLINE TODAY!

Purchasing Stylus Studio from our online shop is Easy, Secure and Value Priced!

Buy Stylus Studio Now

Download The World's Best XML IDE!

Accelerate XML development with our award-winning XML IDE - Download a free trial today!

Don't miss another message! Subscribe to this list today.
Email
First Name
Last Name
Company
Subscribe in XML format
RSS 2.0
Atom 0.3
Site Map | Privacy Policy | Terms of Use | Trademarks
Free Stylus Studio XML Training:
W3C Member
Stylus Studio® and DataDirect XQuery ™are products from DataDirect Technologies, is a registered trademark of Progress Software Corporation, in the U.S. and other countries. © 2004-2011 All Rights Reserved.