Quadros aninhados

Question

EDITAR:Adicionei alguns exemplos para ilustrar o que quero fazer.

Eu gostaria de poder desenhar quadros de Young aninhados. Para uma definição de quadros jovens, consultehttps://en.wikipedia.org/wiki/Young_tableau. O que quero dizer com aninhado é que o conteúdo de uma célula de um quadro é em si um quadro. Por exemplo, meu resultado deve ficar assim:

Em geral, linhas e colunas podem ter qualquer comprimento. Aqui está outro exemplo para ilustrar o que quero ser capaz de fazer:

Como também quero tablóides e tablóides de coluna, desenho meus tableaux usando o método nesta resposta (em vez dos pacotes ytableau ou genyoungtabtikz):

tablóides de coluna versus tablóides de linha

Porém, não estou acostumado com o tikz e não funciona como gostaria. Existe um código mínimo para meu primeiro exemplo (usei \Tableau e \PTableau para que o computador não confunda os dois métodos):

\documentclass{article}

\usepackage{tikz}

\newcount\tableauRow\newcount\tableauCol
\newcommand\Tableau[2]{%
  \begin{tikzpicture}[scale=#2,draw/.append style={thick,black},baseline=-4mm]
    \tableauRow=0
    \foreach \Row in {#1} {
       \tableauCol=1
       \foreach\k in \Row {
          \draw(\the\tableauCol,\the\tableauRow)+(-.5,-.5)rectangle++(.5,.5);
          \draw(\the\tableauCol,\the\tableauRow)node{\k};
          \global\advance\tableauCol by 1
       }
       \global\advance\tableauRow by -1
    }
  \end{tikzpicture}
}
\newcommand\PTableau[2]{%
  \begin{tikzpicture}[scale=#2,draw/.append style={thick,black},baseline=-4mm]
    \tableauRow=0
    \foreach \Row in {#1} {
       \tableauCol=1
       \foreach\k in \Row {
          \draw(\the\tableauCol,\the\tableauRow)+(-.5,-.5)rectangle++(.5,.5);
          \draw(\the\tableauCol,\the\tableauRow)node{\k};
          \global\advance\tableauCol by 1
       }
       \global\advance\tableauRow by -1
    }
  \end{tikzpicture}
}

\begin{document}

\[
\PTableau{{\Tableau{{1,2},{3,4}}{0.5},\Tableau{{5,6},{7,8}}{0.5}}}{1.5}
\]

\end{document}

Com esse código, o resultado fica assim ao invés do que eu quero (desenhei por problema de computador, mas ilustra o problema):

O que devo modificar no \PTableau para obter o resultado desejado? E principalmente, por quê?

Answer 1

Não tenho certeza se a saída é o que você imagina, mas aqui está uma abordagem usando \pics que não estão realmente aninhados, mas empilhados uns sobre os outros para que o resultado pareça que estão aninhados:

\documentclass[border=10pt]{standalone}
\usepackage{tikz}

\tikzset{
    pics/tableau/.style={
        code={
            \tikzset{tableau/.cd, #1}
            \pgfmathsetmacro{\s}{\pgfkeysvalueof{/tikz/tableau/size}*1pt}
            \pgfmathsetmacro{\c}{\pgfkeysvalueof{/tikz/tableau/cols}}
            \begin{scope}[
                shift={(\pgfkeysvalueof{/tikz/tableau/at})},
            ]
                \foreach \n [count=\i from 0] in \tableaulist {
                    \path[\ifx\n\empty\else draw\fi] 
                        ({mod(\i,\c)*\s},{int(-1*\i/\c)*\s})
                            coordinate (-\i)
                            rectangle ++({\s},{-1*\s})
                            node[pos=0.5] (-n\i) { \n };
                }
            \end{scope}
        }
    },
    tableau/list/.store in=\tableaulist,
    tableau/list/.initial={1},
    tableau/cols/.initial={2},
    tableau/size/.initial={1},
    tableau/at/.initial={0,0}
}

\begin{document}
\begin{tikzpicture}

\pic (A) {tableau={list={1,{},9,10,11,{},12,{},20}, cols=3}};

\pic[tableau/size=0.5] (B) {tableau={list={2,3,{},8}, cols=2, at=A-1}};

\pic[tableau/size=0.25, font=\tiny] 
    {tableau={list={4,5,6,7}, cols=2, at=B-2}};

\pic[tableau/size=0.333, font=\tiny] 
    {tableau={list={13,14,15,16,17,18,{},{},19}, cols=3, at=A-7}};

\end{tikzpicture}
\end{document}