100 一个趣味循环编程练习

用 tikz 实现。

\documentclass[tikz,border=1cm]{standalone}
\begin{document}

\begin{tikzpicture}[
  cell/.style={
    draw,
    line width=0.8pt,
    minimum width=7.2mm,
    minimum height=6mm,
    inner sep=0pt,
    font=\small
  }
]

\def\inset{1mm}

\foreach \x in {1,...,100} {

  
  \pgfmathsetmacro{\row}{int((\x-1)/10)}
  \pgfmathsetmacro{\col}{int((\x-1) - 10*\row)}

  
  \node[cell] (N\x) at ({7.2mm*\col},{-6mm*\row}) {\x};

  
  \ifnum\x=2\relax\else
  \ifnum\x=3\relax\else
  \ifnum\x=5\relax\else
  \ifnum\x=7\relax\else

    
    \pgfmathtruncatemacro{\mii}{mod(\x,2)}
    \ifnum\mii=0
      \draw[thick]
        ([xshift=\inset,yshift=-\inset]N\x.north west) --
        ([xshift=-\inset,yshift=\inset]N\x.south east);

    \else
     
      \pgfmathtruncatemacro{\miii}{mod(\x,3)}
      \ifnum\miii=0
        \draw[thick]
          ([xshift=-\inset,yshift=-\inset]N\x.north east) --
          ([xshift=\inset,yshift=\inset]N\x.south west);

      \else
       
        \pgfmathtruncatemacro{\mv}{mod(\x,5)}
        \ifnum\mv=0
          \draw[thick]
            ([xshift=\inset,yshift=-\inset]N\x.north west) --
            ([xshift=-\inset,yshift=\inset]N\x.south east);
          \draw[thick]
            ([xshift=-\inset,yshift=-\inset]N\x.north east) --
            ([xshift=\inset,yshift=\inset]N\x.south west);

        \else
         
          \pgfmathtruncatemacro{\mvii}{mod(\x,7)}
          \ifnum\mvii=0
            \draw[thick]
              ([xshift=\inset]N\x.west) --
              ([xshift=-\inset]N\x.east);
          \fi
        \fi
      \fi
    \fi

  \fi\fi\fi\fi
}

\end{tikzpicture}

\end{document}

基于tabularray的一个自动化方案...

\documentclass{article}
\usepackage{fourier}
\usepackage{xcolor}
\usepackage{tabularray}
\UseTblrLibrary{functional}
\IgnoreSpacesOn
\prgNewFunction \makeHundredCells { } {
  \tlSet \lTmpaTl { } 
  \intStepOneInline {1} {100} {
    \intCaseF { ##1 } {
        { 2 } {  }
        { 3 } {  }
        { 5 } {  }
        { 7 } {  }
    } {
        \intCompareTF { \intMathMod{##1}{2}  } = { 0 } {
          \tlPutRight \lTmpaTl { \SetCell{bg=magenta!50} } 
        }{
            \intCompareTF { \intMathMod{##1}{3} } = { 0 } {
              \tlPutRight \lTmpaTl { \SetCell{bg=cyan!50} } 
            }
            {
                \intCompareTF { \intMathMod{##1}{5} } = { 0 } {
                  \tlPutRight \lTmpaTl { \SetCell{bg=violet!50} } 
                }
                {
                    \intCompareT { \intMathMod{##1}{7} } = { 0 } {
                      \tlPutRight \lTmpaTl { \SetCell{bg=orange!50} } 
                    }
                }
            }
        }
      }
     \intCompareTF { ##1 } = { 1 } {
        \tlPutRight \lTmpaTl { } 
      }{
        \tlPutRight \lTmpaTl { ##1 }
      }
    \intCompareTF { \intMathMod{##1}{10} } = { 0 } {
      \tlPutRight \lTmpaTl { \\ } 
    }{
      \tlPutRight \lTmpaTl { & }
    }
  }
  \prgReturn { \expValue \lTmpaTl }
}
\IgnoreSpacesOff

\begin{document}

\begin{tblr}[evaluate=\makeHundredCells]{
        colspec = {*{10}{X[c]}},
        hlines, vlines,
        rows = {m, ht=3em},
    }
    \makeHundredCells 
\end{tblr}

\end{document}

或者等价的，用逻辑划分更清晰的evaluate = \makeTableBody和process = \myTblrProcessor分别控制内容和样式

\documentclass{article}
\usepackage{fourier}
\usepackage{xcolor}
\usepackage{tabularray}
\UseTblrLibrary{functional}
\IgnoreSpacesOn
\tlNew \lBodyTl
\tlNew \lCellValueTl
\prgNewFunction \makeTableBody { } {
  \tlClear \lBodyTl
  \intStepOneInline {1} {100} {
    \tlPutRight \lBodyTl { ##1 }
    \intCompareTF { \intMathMod{##1}{10} } = { 0 } {
      \tlPutRight \lBodyTl { \\ }
    }{
      \tlPutRight \lBodyTl { & }
    }
  }
  \prgReturn { \expValue \lBodyTl }
}
\prgNewFunction \myTblrProcessor { } {
  \intStepOneInline {1} {\arabic{rowcount}} {
    \intStepOneInline {1} {\arabic{colcount}} {
      \tlSet \lCellValueTl { \cellGetText {##1} {####1} }
        \intCompareT { \lCellValueTl } = { 1 } {
          \cellSetText {##1} {####1} { }
        }
        \intCaseF { \lCellValueTl } {
            { 2 } { } { 3 } { } { 5 } { } { 7 } { }
        } {
            \intCompareTF { \intMathMod{\lCellValueTl}{2} } = { 0 } {
              \cellSetStyle {##1} {####1} { bg=magenta!50 }
            }{
              \intCompareTF { \intMathMod{\lCellValueTl}{3} } = { 0 } {
                \cellSetStyle {##1} {####1} { bg=cyan!50 }
              }{
                \intCompareTF { \intMathMod{\lCellValueTl}{5} } = { 0 } {
                  \cellSetStyle {##1} {####1} { bg=violet!50 }
                }{
                  \intCompareT { \intMathMod{\lCellValueTl}{7} } = { 0 } {
                    \cellSetStyle {##1} {####1} { bg=orange!50 }
                  }
                }
              }
            }
        }
    }
  }
}
\IgnoreSpacesOff

\begin{document}

\begin{tblr}[
    evaluate = \makeTableBody
]{
  colspec = {*{10}{X[c]}},
  hlines, vlines,
  rows = {m, ht=3em},
  process = \myTblrProcessor
}
  \makeTableBody
\end{tblr}

\end{document}