Count of unique attribute names

Hi list

My XSLT 2.0 solution below is working. I am just wondering if there is an
easier way that could perhaps bring distinct-values() into play?

<xsl:variable name="uniqueAttributeNames">
	<xsl:for-each-group select="//@*" group-by="local-name()">
		<xsl:sequence select="local-name()"/>
      </xsl:for-each-group>
</xsl:variable>
<xsl:sequence select="string-length(replace(replace($uniqueAttributeNames,
'\c+',  'x'), '\C+', ''))"/>


Best regards,

Jesper Tverskov
http://www.xmltraining.biz