Преобразование римских числительных в числа¶
Задача¶
Требуется преобразовать число, записанное римскими цифрами, в обычное число.
Решение¶
Римская система счисления не является позиционной. Число в ней записывается путем прибавления или вычитания фиксированного количества римских цифр. Если следующий символ имеет меньшее или такое же значение, то производится добавление, иначе вычитание.
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:math="http://www.ora.com/XSLTCookbook/math" id="math:math.roman"> <ckbk:romans> <ckbk:roman value="1">i</ckbk:roman> <ckbk:roman value="1">I</ckbk:roman> <ckbk:roman value="5">v</ckbk:roman> <ckbk:roman value="5">V</ckbk:roman> <ckbk:roman value="10">x</ckbk:roman> <ckbk:roman value="10">X</ckbk:roman> <ckbk:roman value="50">l</ckbk:roman> <ckbk:roman value="50">L</ckbk:roman> <ckbk:roman value="100">c</ckbk:roman> <ckbk:roman value="100">C</ckbk:roman> <ckbk:roman value="500">d</ckbk:roman> <ckbk:roman value="500">D</ckbk:roman> <ckbk:roman value="1000">m</ckbk:roman> <ckbk:roman value="1000">M</ckbk:roman> </ckbk:romans> <xsl:variable name="ckbk:roman-nums" select="document('')/*/*/ckbk:roman"/> <xsl:template name="ckbk:roman-to-number"> <xsl:param name="roman"/> <xsl:variable name="valid-roman-chars"> <xsl:value-of select="document('')/*/ckbk:romans"/> </xsl:variable> <xsl:choose> <!-- возвращает true, если в строке есть не-римские цифры --> <xsl:when test="translate($roman,$valid-roman-chars,'')">NaN</xsl:when> <xsl:otherwise> <xsl:call-template name="ckbk:roman-to-number-impl"> <xsl:with-param name="roman" select="$roman"/> </xsl:call-template> </xsl:otherwise> </xsl:choose> </xsl:template> <xsl:template name="ckbk:roman-to-number-impl"> <xsl:param name="roman"/> <xsl:param name="value" select="0"/> <xsl:variable name="len" select="string-length($roman)"/> <xsl:choose> <xsl:when test="not($len)"> <xsl:value-of select="$value"/> </xsl:when> <xsl:when test="$len = 1"> <xsl:value-of select="$value + $ckbk:roman-nums[. = $roman]/@value"/> </xsl:when> <xsl:otherwise> <xsl:variable name="roman-num" select="$ckbk:roman-nums[. = substring($roman, 1, 1)]"/> <xsl:choose> <xsl:when test="$roman-num/following-sibling::ckbk:roman = substring($roman, 2, 1)"> <xsl:call-template name="ckbk:roman-to-number-impl"> <xsl:with-param name="roman" select="substring($roman,2,$len - 1)"/> <xsl:with-param name="value" select="$value - $roman-num/@value"/> </xsl:call-template> </xsl:when> <xsl:otherwise> <xsl:call-template name="ckbk:roman-to-number-impl"> <xsl:with-param name="roman" select="substring($roman,2,$len - 1)"/> <xsl:with-param name="value" select="$value + $roman-num/@value"/> </xsl:call-template> </xsl:otherwise> </xsl:choose> </xsl:otherwise> </xsl:choose> </xsl:template> </xsl:stylesheet>
Обсуждение¶
Элемент xsl:number
дает удобный способ преобразовать число в римскую запись. Однако обратное преобразование приходится выполнять самостоятельно. Показанный выше рекурсивный шаблон решает эту задачу прямолинейно и очень похож на приведенный в книге Jeni Tennison XSLT and XPath on the Edge (M&T Books, 2001).
Имеются два мелких подводных камня, но в большинстве случаев они не приводят к неприятностям.
Первый заключается в том, что это решение не работает, когда число записано римскими цифрами в разных регистрах (например, IiI
). Такие аномалии вряд ли встретятся в нормальном источнике данных, тем не менее приведенный код и не отбросит входные данных как некорректные, и правильного результата не даст. Если добавить преобразование к единому регистру, то некорректные входные данные можно будет либо отвергнуть, либо нормально обработать.
Вторая неприятность связана с тем фактом, что не существует стандартного представления в римской записи чисел, больших 1000. Процессоры Saxon и Xalan сцепляют в этом случае буквы M, но другие могут поступать иначе.
Если по какой-то причине вам не нравится хранить данных о римских числительных в таблице стилей, то можете воспользоваться следующим выражением на языке XPath 1.0 для декодирования:
<xsl:variable name="roman-value" select="($c = 'i' or $c = 'I') * 1 + ($c = 'v' or $c = 'V') * 5 + ($c = 'x' or $c = 'X') * 10 + ($c = 'l' or $c = 'L') * 50 + ($c = 'c' or $c = 'C') * 100 + ($c = 'd' or $c = 'D') * 500 + ($c = 'm' or $c = 'M') * 1000)"/>
В XSLT 2.0 можно воспользоваться вложенным выражением if-the-else
или организовать справочную таблицу из последовательности:
<xsl:variable name="roman-value" select="(1,5,10,50,100,500,1000)[index-of(('I', 'V', 'X', 'L', 'C', 'D', 'M'), upper-case($c))]"/>