☰

Comando para una lista separada por comas de números 'Nchoose' de los números '1,2,...,Nmax'

tag-icon • tag-icon tikz-pgf lists pgfmath random-numbers
Comando para una lista separada por comas de números 'Nchoose' de los números '1,2,...,Nmax'

encontré un códigoaquíde @John Kormylo que elige \Nchoosenúmeros entre 1,2,...,\Nmaxnúmeros y los distribuye separados por comas \mylist.

Pregunta: ¿Cómo podría hacer undominiode esto, como

\createlist{<name of list>}{<Nmax>}{<Nchoose>}

Por ejemplo \createliste{pokerlist}{52}{6}, para que pueda decir:
Show list: \pokerlist
o Third element is: \pgfmathparse{\pokerarray[2]} \pgfmathresult(ver 'Pista')
y así sucesivamente.

Pista 1:lo necesitocomo una matriz también, pero creo que puedo decir \def\myarray{\mylist}entonces.

Pista 2:En estas listas estánsin duplicados(Por ejemplo, "1,2,2,2,5,6,7,8,9,10,11,12" NO está permitido).

ingrese la descripción de la imagen aquí

\documentclass{article}
\usepackage{tikz}

% Choose \Ncoose from \Nmax
\pgfmathtruncatemacro\Nmax{52}% 
\pgfmathtruncatemacro\Nchoose{12}% 


\begin{document}
% List of \Ncoose from \Nmax:
\foreach \i in {1,...,\Nmax} {\expandafter\xdef\csname index\i\endcsname{\i}}% create indexes
\foreach \i in {1,...,\Nmax} {% randomise (last step redundant)
  \pgfmathparse{random(\i,\Nmax)}%
  \let\j=\pgfmathresult
  \expandafter\let\expandafter\tempa\csname index\i\endcsname
  \expandafter\let\expandafter\tempb\csname index\j\endcsname
  \global\expandafter\let\csname index\i\endcsname=\tempb
  \global\expandafter\let\csname index\j\endcsname=\tempa
}%
\xdef\mylist{\csname index1\endcsname}% create comma delimited list
\foreach \i in {2,...,\Nchoose} {\xdef\mylist{\mylist, \csname index\i\endcsname}}%


\section{{\Nchoose} random numbers from {1,2,\dots,\Nmax}}
\noindent\mylist

\section{{33} random numbers from {1,2,\dots,60}}
...

\section{{52} random numbers from {1,2,\dots,52}}
...
\end{document}

Respuesta1

No creo que necesites ningún código de paquete para esto, LaTeX tiene todas las funciones predefinidas.

No hay respuestas duplicadas basadas en una lista aleatoria

Esto crea una lista 1..n luego la mezcla y toma las primeras m entradas

\documentclass{article}

\ExplSyntaxOn
\cs_generate_variant:Nn  \cs_set:Npn {Npe} % old latex
\cs_generate_variant:Nn  \clist_set:Nn {Ne} % old latex

\cs_new:Npn \cis_comma_tmp:n #1 {#1,}
\cs_new:Npn \cis_comma_tmpb:n #1 {\seq_item:Nn \l_tmpa_seq {#1} , }


\NewDocumentCommand\createlist{mmm}{
  \clist_set:Ne \l_tmpa_clist {
    \int_step_function:nN {#2} \cis_comma_tmp:n
  }
  
  \seq_set_from_clist:NN \l_tmpa_seq \l_tmpa_clist
  \seq_shuffle:N \l_tmpa_seq
  \cs_set:Npe#1 {
    \int_step_function:nN {#3-1} \cis_comma_tmpb:n
    \seq_item:Nn \l_tmpa_seq {#3}
  }
  }
\ExplSyntaxOff
\begin{document}
\createlist\aaa{52}{12}
\typeout{\aaa}


\createlist\bbb{60}{33}
\typeout{\bbb}


\createlist\ccc{52}{52}
\typeout{\ccc}


\end{document}

productor

12,21,36,23,2,24,3,49,25,52,8,10


9,15,36,27,51,48,10,32,55,31,49,57,47,5,42,12,29,43,17,56,44,34,35,30,2,16,41,23,28,33,37,11,59

36,34,15,49,7,45,33,31,2,29,51,50,5,10,44,17,6,43,3,14,1,19,9,23,48,24,7,32,42
,28,11,46,16,35,40,27,18,20,4,30,26,12,25,52,21,41,38,47,8,39,22,13

respuesta original

Esto produce la siguiente salida de terminal (las dejé al final ,aunque podrían eliminarse

40,12,45,51,43,15,6,21,8,37,16,39,


38,6,24,59,19,50,51,37,28,10,46,17,49,23,33,47,60,45,36,43,1,56,9,33,52,6,45,2,
30,2,30,49,46,


52,9,27,42,37,7,8,34,31,21,6,36,18,22,7,46,7,50,39,9,29,44,10,2,41,21,44,18,11,
20,37,16,16,36,16,26,49,7,21,18,21,40,32,28,43,31,27,25,5,18,16,6,

\documentclass{article}

\ExplSyntaxOn
\NewDocumentCommand\createlist{mmm}{
  \cs_set:Npe#1{\prg_replicate:nn{#3}{\int_rand:n{#2},}}}
\ExplSyntaxOff
\begin{document}

\createlist\aaa{52}{12}
\typeout{\aaa}


\createlist\bbb{60}{33}
\typeout{\bbb}


\createlist\aaa{52}{52}
\typeout{\aaa}


\end{document}

Esto supone que se permiten duplicados.

De lo contrario, utilícelo \seq_suffleen una secuencia 1...Ny luego tome los primeros melementos.

Una versión eliminando uno ,y declarando eversiones para látex antiguo.

\documentclass{article}


\ExplSyntaxOn
\cs_generate_variant:Nn  \cs_set:Npn {Npe} % old latex
\NewExpandableDocumentCommand\createlist{mmm}{
  \cs_set:Npe#1{\use:e{\exp_not:N\use_none:n\use:e{\prg_replicate:nn{#3}{,\int_rand:n{#2}}}}}}
\ExplSyntaxOff
\begin{document}

\createlist\aaa{52}{12}
\typeout{\aaa}


\createlist\bbb{60}{33}
\typeout{\bbb}


\createlist\aaa{52}{52}
\typeout{\aaa}


\end{document}

Respuesta2

Si no quiere duplicados, tiene dos estrategias, pero la sugerida por David es más lenta por un factor muy importante. Aquí muestro dos estrategias: en la primera se genera la secuencia con los números enteros del 1 a Nmax, luego se barajan y los primeros elementos de Nmax se almacenan en una nueva secuencia; en la segunda implementación, se genera un número entero aleatorio de 1 a Nmax y se agrega a la secuencia si aún no está presente, y el proceso se detiene cuando se agregan elementos Nmax.

\documentclass{article}

\usepackage{l3benchmark}

\ExplSyntaxOn

\NewDocumentCommand{\createlistA}{mmm}
 {% #1 = list name, #2 = Nmax, #3 = Nchoose
  \seq_clear:N \l_tmpa_seq
  \int_step_inline:nn { #2 } { \seq_put_right:Nn \l_tmpa_seq { ##1 } }
  \seq_shuffle:N \l_tmpa_seq
  \seq_clear_new:c { l_cis_list_#1_seq }
  \int_step_inline:nn { #3 }
   {
    \seq_put_right:ce { l_cis_list_#1_seq } { \seq_item:Nn \l_tmpa_seq { ##1 } }
   }
 }

\NewDocumentCommand{\createlistB}{mmm}
 {% #1 = list name, #2 = Nmax, #3 = Nchoose
  \seq_clear:N \l_tmpa_seq
  \bool_until_do:nn { \int_compare_p:n { \seq_count:N \l_tmpa_seq = #3 } }
   {
    \tl_set:Ne \l_tmpa_tl { \int_rand:n { #2 } }
    \seq_if_in:NVF \l_tmpa_seq \l_tmpa_tl { \seq_put_right:NV \l_tmpa_seq \l_tmpa_tl }
   }
  \seq_clear_new:c { l_cis_list_#1_seq }
  \seq_set_eq:cN { l_cis_list_#1_seq } \l_tmpa_seq
 }

\benchmark:n { \createlistA{testA}{200}{6} }

\benchmark:n { \createlistB{testB}{200}{6} }

\stop

El resultado del punto de referencia es

0.00248 seconds (1.66e4 ops)
7.69e-5 seconds (511 ops)

Para Nmax=10 y Nchoose=6, obtenemos

1.33e-4 seconds (869 ops)
8.36e-5 seconds (556 ops)

por lo que la segunda estrategia también gana cuando Nmax es pequeño.

Por lo tanto, optaré por la segunda estrategia.

\documentclass{article}

\ExplSyntaxOn

\NewDocumentCommand{\createlist}{mmm}
 {% #1 = list name, #2 = Nmax, #3 = Nchoose
  \cis_createlist:nnn { #1 } { #2 } { #3 }
 }

\NewExpandableDocumentCommand{\listitem}{mm}
 {% #1 = list name, #2 = item number
  \seq_item:cn { l_cis_list_#1_seq } { #2 }
 }

\NewExpandableDocumentCommand{\printlist}{m}
 {
  \seq_use:cn { l_cis_list_#1_seq } { ,~ }
 }

\seq_new:N \l__cis_createlist_tmp_seq
\tl_new:N \l__cis_createlist_tmp_tl

\cs_new_protected:Nn \cis_createlist:nnn
 {
  \seq_clear:N \l__cis_createlist_tmp_seq
  \bool_until_do:nn
   {
    \int_compare_p:nNn { \seq_count:N \l__cis_createlist_tmp_seq } = { #3 }
   }
   {
    \tl_set:Ne \l__cis_createlist_tmp_tl { \int_rand:n { #2 } }
    \seq_if_in:NVF \l__cis_createlist_tmp_seq \l__cis_createlist_tmp_tl
     {
      \seq_put_right:NV \l__cis_createlist_tmp_seq \l__cis_createlist_tmp_tl
     }
   }
  \seq_clear_new:c { l_cis_list_#1_seq }
  \seq_set_eq:cN { l_cis_list_#1_seq } \l__cis_createlist_tmp_seq
 }

\ExplSyntaxOff


\newcommand{\Nmax}{52}
\newcommand{\Nchoose}{12}

\begin{document}

\section{{\Nchoose} random numbers from \{1,2,\dots,\Nmax\}}
\createlist{first}{\Nmax}{\Nchoose}

\printlist{first}

\section{33 random numbers from \{1,2,\dots,60\}}
\createlist{second}{60}{33}

\printlist{second}

\section{52 random numbers from \{1,2,\dots,52\}}
\createlist{third}{52}{52}

\printlist{third}

\end{document}

Si necesita que esto funcione también con TeX Live 2020, 2021 o 2022, agregue

\cs_generate_variant:Nn \tl_set:Nn { Ne }

después \ExplSyntaxOn.

Si desea admitir también TeX Live 2018 o 2019, debe

\usepackage{xparse}

ingrese la descripción de la imagen aquí

información relacionada