Subject: Re: [xsl] Challenge: do better than my implementation of "update map" and "print map" From: Dimitre Novatchev <dnovatchev@xxxxxxxxx> Date: Thu, 29 Aug 2013 22:33:17 -0700 |
Roger, This is a good exercise in Functional programming. Note the three different ways for assembling the map to be printed -- in the code below: <xsl:stylesheet version="3.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:f="function" xmlns:map="http://www.w3.org/2005/xpath-functions/map"> <xsl:output method="text"/> <!-- Test the two map functions --> <xsl:template match="/"> <xsl:variable name="m" select="map{'Linda' := 'Rosie'}" /> <xsl:variable name="m1" select="map:entry('Sally', 'Betsy')" /> <xsl:variable name="m2" select="map:entry('Barb', 'Sue')" /> <xsl:variable name="m3" select="map:entry('Nadia', 'Valerie')" /> <xsl:variable name="m4" select="map:entry('Faye', 'Carol')" /> <xsl:sequence select="f:print-map(map:new(($m, $m1, $m2, $m3, $m4)))" /> ========================================== <xsl:variable name="vMapEntries" select= "map-pairs(map:entry(?,?), ('Linda', 'Sally', 'Barb', 'Nadia','Faye'), ('Rosie', 'Betsy', 'Sue', 'Valerie', 'Carol') )"/> <xsl:sequence select="f:print-map(map:new($vMapEntries))" /> ========================================== <xsl:sequence select= "f:print-map(fold-left(f:add-entry-to-map#2, map:new(), $vMapEntries))" /> </xsl:template> <xsl:function name="f:add-entry-to-map" as="map(xs:anyAtomicType, item()*)"> <xsl:param name="key" as="xs:string" /> <xsl:param name="value" as="item()" /> <xsl:param name="m" as="map(xs:anyAtomicType, item()*)" /> <xsl:sequence select="map:new(($m, map:entry($key, $value)))" /> </xsl:function> <xsl:function name="f:add-entry-to-map" as="map(xs:anyAtomicType, item()*)"> <xsl:param name="m1" as="map(xs:anyAtomicType, item()*)" /> <xsl:param name="m2" as="map(xs:anyAtomicType, item()*)" /> <xsl:sequence select="map:new(($m1, $m2))" /> </xsl:function> <xsl:function name="f:print-map" as="item()*"> <xsl:param name="m" as="map(xs:anyAtomicType, item()*)" /> <xsl:sequence select="map:keys($m) ! (., '-', map:get($m, .))"/> </xsl:function> </xsl:stylesheet> Result: Linda - Rosie Sally - Betsy Nadia - Valerie Barb - Sue Faye - Carol ========================================== Linda - Rosie Sally - Betsy Nadia - Valerie Barb - Sue Faye - Carol ========================================== Linda - Rosie Nadia - Valerie Sally - Betsy Barb - Sue Faye - Carol On Thu, Aug 29, 2013 at 2:16 AM, Costello, Roger L. <costello@xxxxxxxxx> wrote: > Wow! > > Thank you Sean, Dimitre, and Wolfgang. > > You are awesome. > > Okay, we now have two very fine functions on maps: > > 1. Update an existing map with another key/value pair > > 2. Print the contents of a map > > Below is a complete, working stylesheet which tests the two map functions. > > /Roger > ------------------------------------------------------------ > <?xml version="1.0" encoding="UTF-8"?> > <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" > xmlns:map="http://www.w3.org/2005/xpath-functions/map" > xmlns:xs="http://www.w3.org/2001/XMLSchema" > xmlns:f="function" > version="3.0"> > > <xsl:template match="/"> > <xsl:variable name="m" select="map{'Linda' := 'Rosie'}" /> > > <xsl:variable name="m1" select="f:add-entry-to-map('Sally', 'Betsy', $m)" /> > <xsl:variable name="m2" select="f:add-entry-to-map('Barb', 'Sue', $m1)" /> > <xsl:variable name="m3" select="f:add-entry-to-map('Nadia', 'Valerie', $m2)" /> > <xsl:variable name="m4" select="f:add-entry-to-map('Faye', 'Carol', $m3)" /> > > <xsl:sequence select="f:print-map($m4)" /> > > <!-- The output is: > Linda - Rosie > Sally - Betsy > Barb - Sue > Nadia - Valerie > Faye - Carol > --> > > </xsl:template> > > <xsl:function name="f:add-entry-to-map" as="map(xs:anyAtomicType, item()*)"> > <xsl:param name="key" as="xs:anyAtomicType" /> > <xsl:param name="value" as="item()*" /> > <xsl:param name="m" as="map(xs:anyAtomicType, item()*)" /> > > <xsl:sequence select="map:new(($m, map:entry($key, $value)), map:collation($m) )" /> > > </xsl:function> > > <xsl:function name="f:print-map" as="xs:string*"> > <xsl:param name="m" as="map(xs:anyAtomicType, item()*)" /> > > <xsl:sequence select="map:keys($m) ! (., ' - ', map:get($m, .))"/> > > </xsl:function> > > </xsl:stylesheet> > -- Cheers, Dimitre Novatchev --------------------------------------- Truly great madness cannot be achieved without significant intelligence. --------------------------------------- To invent, you need a good imagination and a pile of junk ------------------------------------- Never fight an inanimate object ------------------------------------- To avoid situations in which you might make mistakes may be the biggest mistake of all ------------------------------------ Quality means doing it right when no one is looking. ------------------------------------- You've achieved success in your field when you don't know whether what you're doing is work or play ------------------------------------- Facts do not cease to exist because they are ignored. ------------------------------------- Typing monkeys will write all Shakespeare's works in 200yrs.Will they write all patents, too? :) ------------------------------------- I finally figured out the only reason to be alive is to enjoy it.
Current Thread |
---|
|
<- Previous | Index | Next -> |
---|---|---|
RE: [xsl] Challenge: do better than, Costello, Roger L. | Thread | Re: [xsl] Challenge: do better than, sean |
RE: [xsl] Possible to have bottom b, KAATMAN Matthew | Date | Re: [xsl] How to QuickSort a map?, Wolfgang Laun |
Month |