KTUG 한국 텍 사용자 그룹

Menu

KTUG :: 마당자유글 › 천원술을 아십니까?

yihoze | 2017.03.15 09:53:55 | 메뉴 건너뛰기 쓰기

다이소 같이 돈 버는 기술은 아니고, 대수학 해법이라네요.

tys.png

\documentclass{article}
\usepackage{xparse}
\usepackage{fontspec}

\ExplSyntaxOn
\NewDocumentCommand \Tys { >{\SplitList{~}} m }
{
  \ProcessList{#1}{ \SplitTys }
}

\NewDocumentCommand \SplitTys { m }

    \group_begin:
    \bool_set_true:N \l_tmpa_bool
  \tl_map_inline:nn {#1} 
    { 
        \bool_if:NTF \l_tmpa_bool
        { 
            \PrintTys*{##1} 
            \bool_set_false:N \l_tmpa_bool
        }
        { 
            \PrintTys{##1} 
            \bool_set_true:N \l_tmpa_bool
        }
    }
    \group_end:
    \space 
}

%% 1D360 = 119648
%% 1D369 = 119657
\NewDocumentCommand \PrintTys { s m }
{    
    \group_begin:
    \fontspec{Apple Symbols}
    \IfBooleanTF {#1}
    { \int_set:Nn \l_tmpa_int { #2 + 119647 } }
  { \int_set:Nn \l_tmpa_int { #2 + 119656 } }
    \char"\int_to_Hex:n{\l_tmpa_int}
    \group_end:
}
\ExplSyntaxOff

\begin{document}
\Tys{123 456} %% 여러 수 (number)

\SplitTys{8279} %% 한 수 (number)

\PrintTys*{5} \PrintTys{5} %% 한 숫자 (digit)
\end{document}

 

문제는, 0을 어떻게 표현해야 할지 모르겠습니다.

 

첨부 [1]

댓글 [8]

댓글 쓰기

목록

KTUG 한국 텍 사용자 그룹