Iterar com forloop em vez de foreach

Question

eu tenho isto{C/4/a/n,D/4/b/n,E/4/c/n}

É assim que eu itero com foreach:

\foreach \x\y\w\z in {C/4/a/n,D/4/b/n,E/4/c/n} {
        \x - \y - \w - \z
    }

Mas preciso fazer isso com forloop. É importante poder separar x, y, w e z e não usar pacotes que precisam ser instalados no verso, como expl3 ou similar.

Answer 1

O seguinte define uma função para percorrer listas com dois modos diferentes. A primeira é uma lista simples de valores separados por vírgula e #1refere-se ao item atual da lista (é apenas um \clist_map_inline:n).

O segundo modo usa um delimitador para as sublistas como argumento opcional e, se for fornecido, você poderá acessar os submembros com #1{<n>}e a lista completa com #2. A coisa toda funciona sem grupos (ao contrário de \foreach), então espero que funcione para você.

\documentclass{article}

\ExplSyntaxOn
\int_new:N \g__arturo_nested_level_int
\NewDocumentCommand \ForEach { +o +m +m }
  {
    \IfNoValueTF {#1}
      { \clist_map_inline:nn {#2} {#3} }
      { \__arturo_foreach:nnn {#1} {#2} {#3} }
  }
\cs_new_protected:Npn \__arturo_foreach:nnn #1#2#3
  {
    \int_gincr:N \g__arturo_nested_level_int
    \__arturo_foreach_aux:ccnnn
      { __arturo_foreach_code_ \int_use:N \g__arturo_nested_level_int :nn }
      { l__arturo_foreach_items_ \int_use:N \g__arturo_nested_level_int _seq }
      {#1} {#2} {#3}
    \int_gdecr:N \g__arturo_nested_level_int
  }
\cs_new_protected:Npn \__arturo_foreach_aux:NNnnn #1#2#3#4#5
  {
    \cs_set:Npn #1 ##1 ##2 {#5}
    \seq_clear_new:N #2
    \clist_map_inline:nn {#4}
      {
        \seq_set_split:Nnn #2 {#3} {##1}
        #1 { \seq_item:Nn #2 } {##1}
      }
  }
\cs_generate_variant:Nn \__arturo_foreach_aux:NNnnn { cc }
\ExplSyntaxOff

\begin{document}
\ForEach{a,b,c,d}{#1\par}

\ForEach[/]{C/4/a/n,D/4/b/n,E/4/c/n}{#1{1} - #1{2} - #1{3} - #1{4} (from #2)\par}
\end{document}

Answer 2

Aqui está uma solução TeX. Não entendo exatamente o que você quer fazer, mas você pode começar por aqui.

\bgroup
\def\for#1\endfor{\def\body{#1}\iterate}
\def\iterate{\body\let\next=\iterate\else\let\next=\relax\fi\next}
\newcount\n
\n=0
% Example usage
\for
   \advance\n by1
     \number\n,   
   \ifnum\n<30
\endfor
\egroup

\bye

A recursão e as instruções if tornam uma linguagem de programação Turing completa.