문자열 정렬에 대해서는 DohyunKim 님의 http://www.ktug.or.kr/xe/index.php?document_srl=33728 이 있다.
다음 소스는 xfor 패키지에서 가져온 것으로 원래 숫자에 대해서만 삽입정렬하게 한 것인데 윗글의 \pdfstrcmp를 이용하여 문자열 정렬을 시도해보았다.
정렬 방식은 삽입정렬(insertion sort)
\documentclass{oblivoir}
\usepackage{xfor}
\makeatletter
\newcommand{\insertinto}[2]{%
\def\nlst{}% new list initially empty
\@for\n:=#2\do{%
% store new list in \toks@
\expandafter\toks@\expandafter{\nlst}%
% test current value against new value
%%%\ifnum\n>#1\relax %%%
\ifnum\pdfstrcmp{\n}{#1}=1\relax
% new value needs to be inserted before current value
\edef\newstuff{#1,\n}%
% end for loop at the end of this iteration
\@endfortrue
\else
\edef\newstuff{\n}%
\fi
% append new stuff to new list
\ifx\nlst\@empty
\edef\nlst{\newstuff}%
\else
\edef\nlst{\the\toks@,\newstuff}%
\fi
}%
% check to see if for loop was prematurely terminated
\if@endfor
% loop may have been terminated during final iteration, in
% which case \@forremainder is empty.
\ifx\@forremainder\@empty
% do nothing
\else
% loop prematurely ended, append remainder of original list
% to new list
\expandafter\toks@\expandafter{\nlst}%
\edef\nlst{\the\toks@,\@forremainder}%
\fi
\else
% wasn't prematurely terminated, so new value hasn't been added
% so add now.
\expandafter\toks@\expandafter{\nlst}%
\ifx\nlst\@empty
\edef\nlst{#1}%
\else
\edef\nlst{\the\toks@,#1}%
\fi
\fi
\global\let#2=\nlst
}
\newcommand*{\insertionsort}[1]{%
\def\sortedlist{}%
\@for\val:=#1\do{{\insertinto{\val}{\sortedlist}}}%
\let#1=\sortedlist
}
\makeatother
\begin{document}
\def\chlist{받,은,편,지,함,의,메,일,을,모,두,읽,으,셨,습,니,다}
\insertionsort{\chlist}
\chlist
\def\chlist{{독도는},{우리},{땅이다},{민족},{국가},{자유}}
\insertionsort{\chlist}
\chlist
\end{document}
결과:
KTUG 한국 텍 사용자 그룹