☰

Итерация с forloop вместо foreach

tag-icon • tag-icon foreach loops musixtex
Итерация с forloop вместо foreach

у меня есть это{C/4/a/n,D/4/b/n,E/4/c/n}

Вот как я это делаю с помощью foreach:

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

Но мне нужно сделать это с помощью forloop. Важно иметь возможность разделить x,y,w и z и не использовать пакеты, которые должны быть установлены в overleaf, такие как expl3 или подобные.

решение1

Ниже определяется функция для цикла по спискам с двумя различными режимами. Первый — это простой список значений, разделенных запятыми, и #1ссылается на текущий элемент списка (это просто \clist_map_inline:n).

Второй режим принимает разделитель для подсписков как необязательный аргумент, и если он задан, вы можете получить доступ к подчленам с помощью #1{<n>}, а к полному списку с помощью #2. Все это работает без групп (в отличие от \foreach), поэтому я надеюсь, что это сработает для вас.

\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}

введите описание изображения здесь

решение2

Вот решение TeX. Я не понимаю, что именно вы хотите сделать, но вы можете начать отсюда.

\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

Рекурсия и операторы if делают язык программирования полным по Тьюрингу.

Связанный контент