KTUG 한국 텍 사용자 그룹

Menu

KTUG :: 마당자유글 › 구구단

noname | 2021.11.29 12:13:44 | 메뉴 건너뛰기 쓰기

구구단에 대한 짧은 대화가 있었네요. expl3로 하는 걸 보이겠다고 말한 대로...

\documentclass[landscape]{oblivoir}

\usepackage[1in]{fapapersize}
\SetHangulspace{1}{1}

\usepackage{amsmath}

\begin{document}

\pagestyle{empty}
\parindent=0pt

\ExplSyntaxOn

\int_new:N \l_last_int
\int_set:Nn \l_last_int { 9 }	%% or 19

\cs_new:Npn \make_one_dan:n #1
{
	\tl_clear:N \l_tmpa_tl
	\int_step_inline:nn { \l_last_int }
	{
		\tl_put_right:Nx \l_tmpa_tl { 
			#1 \exp_not:N \times ##1 &= \int_eval:n { #1 * ##1 }
			\int_compare:nT { ##1 != \l_last_int }
			{ \exp_not:N \\ }
		}
	}
	
	\begin{minipage}{3cm}
		\exp_last_unbraced:Nno
		\begin{align*}
		\l_tmpa_tl
		\end{align*}
	\end{minipage}
}

\int_compare:nTF { \l_last_int < 10 } 
  { \int_set:Nn \l_tmpb_int { 4 } }
  { \int_set:Nn \l_tmpb_int { 6 } }

\int_step_inline:nnn { 2 } { \l_last_int }
{
	\make_one_dan:n { #1 }
	
	\int_compare:nT { \int_mod:nn { #1 - 1  } { \l_tmpb_int } == 0 }
	{ \par }
}

\ExplSyntaxOff

\end{document}

 

댓글 [5]

댓글 쓰기

목록 삭제

KTUG 한국 텍 사용자 그룹