Como definir macros em um loop foreach com efeitos entre iterações e após o loop sem usar global?

Question

Sem usar \global, o seguinte código:

\documentclass{minimal}
\usepackage[T1]{fontenc}
\usepackage{tikz}
\usepackage{etextools}

\newcommand\appendbyforeach[2]{%
  \AfterGroup*{\noexpand\AfterGroup{\noexpand\edef\noexpand#1{\noexpand#1#2}}}
}

\newcommand\defincbyforeach[2]{%
  \AfterGroup*{\noexpand\def\noexpand#1{#2}}
  \AfterGroup*{\noexpand\AfterGroup{\noexpand\def\noexpand#1{#2}}}
}

\newcommand\meaningwithname[1]{\textbackslash#1: \expandafter\meaning\csname #1\endcsname}

\newcommand\mymacro{
  \begingroup
  \def\myarray{init}
  \def\valmax{0}
  \foreach \i in {1,8,-3}{
    \appendbyforeach{\myarray}{,\i}
    \pgfmathsetmacro{\max}{\valmax < \i ? \i : \valmax}
    \defincbyforeach\valmax{\max}
    %%% print state of \myarray and \valmax
    foreach \i\\\meaningwithname{myarray}\\\meaningwithname{valmax}\par
  }
  inside\\\meaningwithname{myarray}\\\meaningwithname{valmax}\par
  \endgroup
  outside\\\meaningwithname{myarray}\\\meaningwithname{valmax}\par
}

\begin{document}\mymacro\end{document}

produz um documento contendo:

    foreach 1
\myarray: macro:->init
\valmax:macro:->0
    cada um 8
\myarray: macro:->init
\valmax:macro:->1.0
    foreach -3
\myarray: macro:->init
\valmax:macro:->8.0
    dentro
\minhaarray: macro:->init,1,8,-3
\valmax:macro:->8.0
    fora
\myarray: \relaxar
\valmax: \relaxar

Este resultado me cai bem!

Mas existe uma maneira melhor de definir macros \appendbyforeache \defincbyforeachao mesmo tempo obter os mesmos efeitos?

O pacote é etextoolsrealmente prático aqui?

Answer 1

Observação:Este código sempre usa etextools. Antes de aceitar a minha resposta à minha própria pergunta, espero que outros me ofereçam soluções mais interessantes (sem etextools, mais eficazes, mais rápidas, mais simples...). Mas sempre sem usar \global!

Editar:Aqui está uma nova versão sem valores expandidos e com apenas duas macros.

1. \afteriterationdefpara (re)definir uma macro após a iteração atual.

2. \afterforeachdefpara (re)definir uma macro após foreach (e após a iteração).

Aqui está o código dessas duas macros:

\documentclass{minimal}
\usepackage[T1]{fontenc}
\usepackage{tikz}
\usepackage{etextools}

\makeatletter

% define a macro after current iteration
\newcommand\afteriterationdef[1]{\aftergroup@def#1}

% define a macro after foreach (and after iteration)
\newcommand\afterforeachdef[1]{\afteriterationdef{#1}\AfterGroup{\aftergroup@def#1}}

\makeatother

E um exemplo:

\newcommand\meaningwithname[1]{%
  \textbackslash#1: \expandafter\meaning\csname #1\endcsname}

\newcommand\mymacro{
  {
    \def\myarray{init}
    \def\myvalue{1}
    \foreach \i in {1,8,-3,-1}{
      % append some value to \myarray
      \edef\myarray{\myarray,\i}
      \afterforeachdef\myarray
      % incremental definition of \mtvalue
      \pgfmathsetmacro{\myvalue}{\myvalue*\i}
      \afterforeachdef\myvalue
      %%% print meaning of \myarray and \myvalue at each iteration
      foreach \i: \meaningwithname{myarray}, \meaningwithname{myvalue}\par
    }
    %%% print meaning of \myarray and \myvalue after \foreach
    inside group: \meaningwithname{myarray}, \meaningwithname{myvalue}\par
  }
  %%% print meaning of \myarray and \myvalue outside
  outside group: \meaningwithname{myarray}, \meaningwithname{myvalue}\par
}

\begin{document}\mymacro\end{document}

Este exemplo produz este texto:

foreach 1: \myarray: macro:->init,1, \myvalue: macro:->1.0
foreach 8: \myarray: macro:->init,1,8, \myvalue: macro:->8.0
foreach -3: \meuarray: macro:->init,1,8,-3, \meuvalor: macro:->-24.0
foreach -1: \meuarray: macro:->init,1,8,-3,-1, \meuvalor: macro:->24.0
grupo interno: \myarray: macro:->init,1,8,-3,-1, \myvalue: macro:->24.0
grupo externo: \myarray: \relax, \myvalue: \relax

Editar 2:Outro exemplo com dois aninhados \foreach:

\newcommand\mymacrowithnestedforeach{
  {
    \def\myarray{init}
    \def\myvalue{1}
    \foreach \i in {1,...,3}{
      \foreach \j in {1,...,3}{
        % append some value to \myarray
        \edef\myarray{\myarray,(\i,\j)}
        \afterforeachdef\myarray
        % incremental definition of \myvalue
        \pgfmathsetmacro{\myvalue}{\myvalue+\j*\i}
        \afterforeachdef\myvalue
        %%% print meaning of \myarray and \myvalue at each iteration
        int foreach \i: \meaningwithname{myarray}, \meaningwithname{myvalue}\par
      }
      % 
      \afterforeachdef\myarray
      \afterforeachdef\myvalue
      %%% print meaning of \myarray and \myvalue at each iteration
      ext foreach \i: \meaningwithname{myarray}, \meaningwithname{myvalue}\par
    }
    %%% print meaning of \myarray and \myvalue after \foreach
    inside  group: \meaningwithname{myarray}, \meaningwithname{myvalue}\par
  }
  %%% print meaning of \myarray and \myvalue outside
  outside group: \meaningwithname{myarray}, \meaningwithname{myvalue}\par
}

\begin{document}\mymacrowithnestedforeach\end{document}

Este exemplo produz este texto:

int foreach 1: \meuarray: macro:->init,(1,1), \meuvalor: macro:->2.0
int foreach 1: \meuarray: macro:->init,(1,1),(1,2), \meuvalor: macro:->4.0
int foreach 1: \meuarray: macro:->init,(1,1),(1,2),(1,3), \meuvalor: macro:->7.0
ext foreach 1: \meuarray: macro:->init,(1,1),(1,2),(1,3), \meuvalor: macro:->7.0
int foreach 2: \myarray: macro:->init,(1,1),(1,2),(1,3),(2,1), \myvalue: macro:->9.0
int foreach 2: \meuarray: macro:->init,(1,1),(1,2),(1,3),(2,1),(2,2), \meuvalor: macro:-> 13,0
int foreach 2: \myarray: macro:->init,(1,1),(1,2),(1,3),(2,1),(2,2),(2,3), \ meuvalor: macro:->19,0
ext foreach 2: \myarray: macro:->init,(1,1),(1,2),(1,3),(2,1),(2,2),(2,3), \ meuvalor: macro:->19,0
int foreach 3: \myarray: macro:->init,(1,1),(1,2),(1,3),(2,1),(2,2),(2,3),( 3,1), \meuvalor: macro:->22.0
int foreach 3: \myarray: macro:->init,(1,1),(1,2),(1,3),(2,1),(2,2),(2,3),( 3,1),(3,2), \meuvalor: macro:->28,0
int foreach 3: \myarray: macro:->init,(1,1),(1,2),(1,3),(2,1),(2,2),(2,3),( 3,1),(3,2),(3,3), \meuvalor: macro:->37,0
ext foreach 3: \myarray: macro:->init,(1,1),(1,2),(1,3),(2,1),(2,2),(2,3),( 3,1),(3,2),(3,3), \meuvalor: macro:->37,0
dentro do grupo: \myarray: macro:->init,(1,1),(1,2),(1,3),(2,1),(2,2),(2,3),(3 ,1),(3,2),(3,3), \meuvalor: macro:->37,0
grupo externo: \myarray: \relax, \myvalue: \relax