Iterar con forloop en lugar de foreach

Question

tengo esto{C/4/a/n,D/4/b/n,E/4/c/n}

Así es como lo repito con foreach:

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

Pero necesito hacerlo con forloop. Es importante poder separar x,y,w yz y no utilizar paquetes que deban instalarse al dorso como expl3 o similares.

Answer 1

A continuación se define una función para recorrer listas con dos modos diferentes. La primera es una lista de valores simples separados por comas y #1se refiere al elemento de la lista actual (esto es solo un \clist_map_inline:n).

El segundo modo toma un delimitador para las sublistas como argumento opcional y, si se proporciona, puede acceder a los submiembros con #1{<n>}y a la lista completa con #2. Todo funciona sin grupos (a diferencia de \foreach), así que espero que funcione para ti.

\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

Aquí hay una solución TeX. No entiendo qué quieres hacer exactamente, pero puedes empezar desde aquí.

\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

La recursividad y las declaraciones if completan el lenguaje de programación Turing.