Преобразование римских числительных в числа

Задача

Требуется преобразовать число, записанное римскими цифрами, в обычное число.

Решение

Римская система счисления не является позиционной. Число в ней записывается путем прибавления или вычитания фиксированного количества римских цифр. Если следующий символ имеет меньшее или такое же значение, то производится добавление, иначе вычитание.

<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))]"
/>