TeX：TeX言語で整数が奇数であるかを判定する（ローマ数字編）

checkodd-rn.tex

% 準備
\newif\ifIsOdd
\newcount\myCount
\newbox\myBox
%% \CheckOdd<整数n>: nが奇数であるかを判定し, 結果を
% スイッチ \ifIsOdd に返す.
\def\CheckOdd#1{%
  \IsOddfalse
  % nが奇数 ⇔ 5nのローマ数字の末尾が'v'
  % であるため, ボックス中でローマ数字を出力した上で
  % \spacefactor を利用して末尾が'v'であるかを判定する.
  \setbox\myBox\hbox{%
    % 'v'のspacefactorを変更する(他の英小文字は1000)
    \sfcode`v=1001
    % 5nのローマ数字を出力する
    \myCount=#1\relax
    \multiply\myCount5
    \romannumeral\myCount\relax
    % 現在のspacefactorが1001なら末尾は'v'である
    \ifnum\spacefactor>1000
      \aftergroup\IsOddtrue
    \fi
  }%
}

%-----------------------------------------------------------
% 1から100までの整数についてテストする.
\myCount=0 \loop\ifnum\myCount<100
  \advance\myCount1
  \the\myCount\space is
  \CheckOdd\myCount
  \ifIsOdd odd\else even\fi.\endgraf
\repeat
\bye