Сортировать массив слов по длине

Question

У меня есть длинный массив слов, которые мне нужно отобразить в порядке возрастания длины. Я попытался использовать пакет arraysort и настроить компаратор.

Мой упрощенный код:

\documentclass{article}                                                                                                        
\usepackage{calc} 
\usepackage{arraysort} 

\newlength{\somelength} 
\newcommand{\showLen}[1]{#1 \setlength{\somelength}{\widthof{#1}}\the\somelength\\} 

\def\IsPositive#1{% 
  TT\fi 
  \ifcat_\ifnum0<0#1 _\else A\fi 
} 
%customised comparator based on example from arraysort manual 
\newcommand{\cmpLen}[2]{% 
  \edef\cmpA{\showLen{#1}}% 
  \edef\cmpB{\showLen{#2}}% 
  \if\IsPositive{\cmpA}% 
  \if\IsPositive{\cmpB}% 
    \arraysortcomparenum{\cmpA}{\cmpB}% 
  \else% 
    \togglefalse {arraysortresequal}% 
    \toggletrue{arraysortresult}% 
  \fi % 
  \else% 
  \if\IsPositive{\cmpB}% 
  \togglefalse{arraysortresequal}% 
  \togglefalse{arraysortresult}% 
  \else% 
  \arraysortcomparestr{\cmpA}{\cmpB}% 
  \fi % 
  \fi % 
} 
\begin{document} 
\newarray{A} 
\readarray{A}{Compulsion&His&Obsession&Girl&Relationship&His}% 
\sortArray[cmpLen]{63}{A} 
\A{1}\A{2}\A{3}\A{4}\A{5} 
\end{document}

Я изменил пример "\sortArray с пользовательским компаратором" на странице 4 руководства по arraysort. Мои изменения в определении \cmpAи \cmpBв котором я предоставляю длину, вычисленную с помощью команды \showLen.

Он не работает, и отображаемая ошибка не ясна.

! Undefined control sequence.
\GenericError  ...                                
                                                    #4  \errhelp \@err@     ...
l.37 \A
       {1}\A{2}\A{3}\A{4}\A{5}

Почему мой код не работает? Есть ли лучший способ сделать это, используя только LaTeX и не сортируя мой массив заранее?

Answer 1

Вам также нужна опция comparenum. Кажется, это делает это.

Время компиляции заметно избыточно, как будто загружаются сотни тысяч строк кода... а, ладно, это из-за \sortArray[cmpLen]{63}{A}OP. Превращает это в \sortArray[cmpLen]{6}{A}и компилируется нормально.

\documentclass{article}
\usepackage{calc}
\usepackage[comparenum]{arraysort}

\newsavebox\mybox

%\newlength{\somelength}
%\newcommand{\showLen}[1]{#1 \setlength{\somelength}{\widthof{#1}}\the\somelength\\}

\def\IsPositive#1{%
  TT\fi
  \ifcat_\ifnum0<0#1 _\else A\fi
}
%customised comparator based on example from arraysort manual
\newcommand{\cmpLen}[2]{%
  \sbox\mybox{#1}\edef\cmpA{\number\wd\mybox}%
  \sbox\mybox{#2}\edef\cmpB{\number\wd\mybox}%
  \if\IsPositive{\cmpA}%
      \if\IsPositive{\cmpB}%
          \arraysortcomparenum{\cmpA}{\cmpB}%
      \else
          \togglefalse {arraysortresequal}%
          \toggletrue  {arraysortresult}%
      \fi
  \else
      \if\IsPositive{\cmpB}%
          \togglefalse {arraysortresequal}%
          \togglefalse {arraysortresult}%
      \else
          \arraysortcomparenum{\cmpA}{\cmpB}%
      \fi
  \fi
}

\begin{document}
\newarray{A}
\readarray{A}{Compulsion&His&Obsession&Girl&Relationship&His}%

\sortArray[cmpLen]{63}{A}

\A(1)

\A(2)

\A(3)

\A(4)

\A(5)

\A(6)
\end{document}

Производит

His
His
Girl
Obsession
Compulsion
Relationship

Answer 2

Вот реализация с expl3и l3sort. Вариант * сортирует в обратном порядке; необязательный аргумент (по умолчанию «запятая-пробел») является разделителем между элементами в распечатке.

\documentclass{article}
\usepackage{xparse,l3sort}

\ExplSyntaxOn
% \sortwordsbylength has a *-variant (for reverse ordering),
% an optional argument with default value “comma space”
% and a mandatory argument
\NewDocumentCommand{\sortwordsbylength}{ s +O{,~} m }
 {
  \IfBooleanTF{#1}
   {% for decreasing ordering we pass <
    \kees_sort_bylength:nnn { < } { #2 } { #3 }
   }
   {% for increasing order we pass >
    \kees_sort_bylength:nnn { > } { #2 } { #3 }
   }
 }

% some variables
\seq_new:N \l__kees_sort_items_seq
\box_new:N \l__kees_sort_boxa_box
\box_new:N \l__kees_sort_boxb_box

% the main macro
\cs_new_protected:Nn \kees_sort_bylength:nnn
 {% split the input at commas
  \seq_set_split:Nnn \l__kees_sort_items_seq { , } { #3 }
  % sort the sequence according to l3sort
  \seq_sort:Nn \l__kees_sort_items_seq
   {
    \hbox_set:Nn \l__kees_sort_boxa_box { ##1 }
    \hbox_set:Nn \l__kees_sort_boxb_box { ##2 }
    \dim_compare:nTF { \box_wd:N \l__kees_sort_boxa_box #1 \box_wd:N \l__kees_sort_boxb_box }
     { \sort_reversed: }
     { \sort_ordered: }
   }
  % print the sequence, with the stated separator between items
  \seq_use:Nn \l__kees_sort_items_seq { #2 }
 }
\ExplSyntaxOff

\begin{document}

\sortwordsbylength{Compulsion,His,Obsession,Girl,Relationship,His}

\bigskip

\sortwordsbylength*[\par]{Compulsion,His,Obsession,Girl,Relationship,His}

\end{document}