Un faro aleatorio es una técnica utilizada frecuentemente por los magos para "barajar" un mazo. Para realizar un barajado de Faro, primero cortas la baraja en 2 mitades iguales y luego intercalas las dos mitades. Por ejemplo
[1 2 3 4 5 6 7 8]
Faro barajado es
[1 5 2 6 3 7 4 8]
Esto se puede repetir cualquier cantidad de veces. Curiosamente, si repite esto suficientes veces, siempre terminará en la matriz original. Por ejemplo:
[1 2 3 4 5 6 7 8]
[1 5 2 6 3 7 4 8]
[1 3 5 7 2 4 6 8]
[1 2 3 4 5 6 7 8]
Observe que 1 permanece en la parte inferior y 8 permanece en la parte superior. Eso hace que esto sea una confusión exterior . Esta es una distinción importante.
El reto
Dada una matriz de enteros A , y un número N , genera la matriz después de que N Faro baraje. A puede contener elementos repetidos o negativos, pero siempre tendrá un número par de elementos. Puede suponer que la matriz no estará vacía. También puede suponer que N será un número entero no negativo, aunque puede ser 0. Puede tomar estas entradas de cualquier manera razonable. ¡La respuesta más corta en bytes gana!
Prueba IO:
#N, A, Output
1, [1, 2, 3, 4, 5, 6, 7, 8] [1, 5, 2, 6, 3, 7, 4, 8]
2, [1, 2, 3, 4, 5, 6, 7, 8] [1, 3, 5, 7, 2, 4, 6, 8]
7, [-23, -37, 52, 0, -6, -7, -8, 89] [-23, -6, -37, -7, 52, -8, 0, 89]
0, [4, 8, 15, 16, 23, 42] [4, 8, 15, 16, 23, 42]
11, [10, 11, 8, 15, 13, 13, 19, 3, 7, 3, 15, 19] [10, 19, 11, 3, 8, 7, 15, 3, 13, 15, 13, 19]
Y, un caso de prueba masivo:
23, [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100]
Debería dar salida:
[1, 30, 59, 88, 18, 47, 76, 6, 35, 64, 93, 23, 52, 81, 11, 40, 69, 98, 28, 57, 86, 16, 45, 74, 4, 33, 62, 91, 21, 50, 79, 9, 38, 67, 96, 26, 55, 84, 14, 43, 72, 2, 31, 60, 89, 19, 48, 77, 7, 36, 65, 94, 24, 53, 82, 12, 41, 70, 99, 29, 58, 87, 17, 46, 75, 5, 34, 63, 92, 22, 51, 80, 10, 39, 68, 97, 27, 56, 85, 15, 44, 73, 3, 32, 61, 90, 20, 49, 78, 8, 37, 66, 95, 25, 54, 83, 13, 42, 71, 100]
fuente
Respuestas:
05AB1E , 5 bytes
Código:
Explicación, entrada:
N
,array
:Utiliza la codificación CP-1252 . Pruébalo en línea! .
fuente
vim,
625954Guau. Esta es posiblemente la cosa más pirata que he escrito para PPCG, y eso dice algo.
La entrada se toma como N en la primera línea seguida de los elementos de la matriz, cada uno en su propia línea.
En realidad, posiblemente encontré varios errores vim al escribir esta respuesta:
no es posible grabar macros dentro de otras macros (al configurar su texto manualmente, no con
q
) o dentro de:*map
s.:let @a='<C-v><cr>'<cr>i<C-r>a
genera dos nuevas líneas, no una, por cualquier razón arcana.Podría investigar eso más adelante.
¡Gracias al Dr. Green Eggs y Ham DJ por 3 bytes!
fuente
:P
Además, puede quitar 2 bytes haciendo en"rck
lugar devgg"rc
, y puede quitar otros 5 haciendo endw@"i@r<esc>
lugar deAA@R<C-v><esc><esc>0D@"
Python 2, 59 bytes
Un enfoque diferente, un poco más largo que las otras respuestas de Python. Solo funciona para números pares positivos de elementos.
por ejemplo
1, [1,2,3,4,5,6,7,8]
, para tomar la matriz y agregarlen(L)/2-1
copias de sí mismo menos el primer elemento, por ejemploLuego toma cada
len(L)/2
elemento.fuente
Python,
6857 bytes¡Gracias a @ Sp3000 por jugar 11 bytes!
Pruébalo en Ideone .
fuente
Haskell, 62 bytes
Sea s = 2 · t el tamaño de la lista. El i -ésimo elemento de la nueva lista se obtiene tomando el -ésimo elemento de la lista anterior, indexado a cero, módulo s .
Prueba: si i = 2 · k es par, entonces
y si i = 2 · k + 1 es impar, entonces
Por lo tanto, los valores utilizados para la indexación son 0, t , 1, t + 1, 2, t + 2, ...
fuente
J - 12 bytes
Adverbio (!) Toma el número de barajaduras a la izquierda y la matriz para barajar a la derecha.
El analizador J tiene reglas para escribir adverbios tácitos , pero tienen una precedencia muy baja: si desea utilizar un tren de verbos como argumento izquierdo, puede omitir un conjunto de paréntesis que de otro modo sería necesario. Entonces, lo anterior es realmente la abreviatura de
(/:#/:@$0,#)^:
, que toma el número de barajaduras a la izquierda como un adverbio, y luego se convierte en una función monádica que lleva la matriz a barajar a la derecha.Dicho esto, barajamos de la siguiente manera.
#
es la longitud de la matriz, por lo que0,#
es una lista de dos elementos: 0 seguido de algo distinto de cero. Luego#/:@$
replica eso en una lista siempre que la matriz de entrada, y toma su vector de clasificación .El vector de clasificación de una lista es la información sobre cómo ordenar la lista: el invdex (basado en 0) del elemento más pequeño, seguido del índice del siguiente más pequeño, y así sucesivamente. Por ejemplo, el vector de clasificación de
0 1 0 1 ...
será así0 2 4 ... 1 3 5 ...
.Si J ahora ordenara este vector de clasificación, Faro lo barajaría; pero eso sería trivial, ya que volveríamos
0 1 2 3 ...
. Entonces usamos dyadic/:
para ordenar la matriz de entrada como si fuera0 2 4 ... 1 3 5 ...
, lo que Faro la baraja.Ejemplo de uso a continuación. Pruébelo usted mismo en tryj.tk !
fuente
Pyth -
87 bytesguardado 1 byte gracias a @issacg
Pruébelo en línea aquí .
fuente
Q
para guardar un byte. Debe haber algo mal con la respuesta de Pyth si Jelly vence a Pyth. :)u
con None y hacer punto fijo?Jalea,
97 bytes2 bytes gracias a Dennis!
Pruébalo en línea!
Explicación
Versión anterior de 9 bytes:
Pruébalo en línea!
fuente
JavaScript (ES6),
6151 bytesModifica la matriz de entrada en su lugar y devuelve una copia de la matriz original. Si esto es inaceptable,
&&a
puede tener el sufijo para devolver la matriz modificada. Solo funciona para valores pequeñosn
debido a las limitaciones de la aritmética de enteros de JavaScript.61Versión recursiva de 60 bytes que funciona con versiones más grandesn
, basada en la fórmula de @ Lynn:fuente
MATL , 11 bytes
Gracias a @Dennis por una corrección
Pruébalo en línea!
Explicación
fuente
w
necesario?J,
221917 bytes3 bytes gracias a @Gareth .
2 bytes gracias a @algorithmshark .
Uso
Donde
>>
es STDIN y<<
es STDOUT.Versión anterior de 22 bytes:
Uso
Donde
>>
es STDIN y<<
es STDOUT.fuente
{~2,@|:@i.@,-:@#^:
para 18 bytes .[:,@|:]]\~_2%~#^:
,@|:@$~2,-:@#^:
funciona para 15 bytesMathematica 44 bytes
Con 4 bytes guardados gracias a @miles.
Riffle @@ TakeDrop[#, Length@#/2] &~Nest~## &[list, nShuffles]
divide la lista en dos sublistas iguales y las barajaRiffle
.{1, 5, 2, 6, 3, 7, 4, 8}
{1, 30, 59, 88, 18, 47, 76, 6, 35, 64, 93, 23, 52, 81, 11, 40, 69, 98, 28, 57, 86, 16, 45, 74, 4 , 33, 62, 91, 21, 50, 79, 9, 38, 67, 96, 26, 55, 84, 14, 43, 72, 2, 31, 60, 89, 19, 48, 77, 7, 36 , 65, 94, 24, 53, 82, 12, 41, 70, 99, 29, 58, 87, 17, 46, 75, 5, 34, 63, 92, 22, 51, 80, 10, 39, 68 , 97, 27, 56, 85, 15, 44, 73, 3, 32, 61, 90, 20, 49, 78, 8, 37, 66, 95, 25, 54, 83, 13, 42, 71, 100 }
fuente
TakeDrop
podemos encontrar una solución usando 40 bytes ,Riffle@@TakeDrop[#,Length@#/2]&~Nest~##&
mientras tomamos la secuencia##
para analizar como argumentos adicionalesNest
.TakeDrop
. Y es mejor usar##
para insertar la secuencia.APL
2321 caracteresSin la suposición (gracias a Dennis) y 1 char más corto:
Pruébalo en línea .
fuente
java, 109 bytes
int[]f(int[]a,int n){for(int x,q=a.length,d[];0<n--;a=d){d=new int[q];for(x=0;x<q;x++)d[(2*x+2*x/q)%q]=a[x];}return a;}
Explicación: Hay un patrón de cómo se mueven los elementos cuando se barajan de forma aleatoria:
sea x el índice original
deja ser el nuevo índice
deja que L sea la longitud de la matriz
o como código:
y=(2*x+x/(L/2))%L
Esto supone que las indicaciones comienzan en 0. Aquí está el código más explicado:
ver ideone para casos de prueba
fuente
void f(int[]a,int n){for(int x,q=a.length,d[];0<n--;a=d)for(d=new int[q],x=0;x<q;)d[(2*x+2*x/q)%q]=a[x++];}
( 107 bytes - tu respuesta actual es 119 por cierto, no 109, entonces -12 bytes). Como modifica la matriz de entrada, no hay necesidad de devolverla, por lo que puede cambiarla a un vacío para reducir bytes. Ah, y si te conviertes en un Java 8 lambda con curry, podrías hacerlo aún más corto:a->n->{for(int x,q=a.length,d[];0<n--;a=d){d=new int[q];for(x=0;x<q;x++)d[(2*x+2*x/q)%q]=a[x];}}
( 96 bytes )Julia,
4542 bytesPruébalo en línea!
Cómo funciona
Nosotros (re) definimos el operador binario
\
para esta tarea. Deje a ser una matriz yn un número entero no negativo.Si n es positivo, barajamos la matriz. Esto se logra al darle forma a una matriz de longitud (a) ÷ 2 filas y dos columnas.
'
transpone la matriz resultante, crea dos filas y luego aplana el resultado con[:]
. Como Julia almacena las matrices en el orden de columnas principales, esto intercala las dos filas.Posteriormente, invocamos
\
recursivamente con el aleatorio a y n - 1 (~-n
) como argumentos, realizando así barajamientos adicionales. Una vez que n alcanza 0 , devolvemos el valor actual de a .fuente
Pyke, 7 bytes
Pruébalo aquí!
fuente
En realidad, 15 bytes
Pruébalo en línea!
Explicación:
fuente
Prólogo, 116 bytes
Uso
fuente
Perl 5
-lan
, 52 bytesPruébalo en línea!
fuente
PHP, 98 bytes
Pruébalo en línea .
fuente