En un dado estándar (dado) los números están ordenados de modo que las caras opuestas sumen siete. Escriba el programa más corto posible en su idioma preferido que genere un lanzamiento aleatorio seguido de 9 propinas aleatorias. Una propina es un cuarto de vuelta del dado, por ejemplo, si el dado está orientado hacia 5, todas las posibles propinas son 1,3,4 y 6.
Ejemplo de salida deseada:
1532131356
Respuestas:
Es posible que deba reemplazar printcon alerto algo más, dependiendo de su entorno JavaScript.
for(C=L=T=0;C++<10;print(L=T))while(!(T-L&&T+L-7))T=Math.random()*6+1|0
Golpetazo
#/!bin/bash
f=`expr $RANDOM % 6`
f=`expr $f + 1`
printf "$f"
for ((i=0; i<9; i++))
do
((bad=7-$f))
next=`expr $RANDOM % 6`
next=`expr $next + 1`
while [ $next -eq $bad ] || [ $next -eq $f ]
do
next=`expr $RANDOM % 6`
next=`expr $next + 1`
done
printf "$next"
f=$next
done
código de muestra: http://ideone.com/CCfro
((var=expression))es muy agradable: pensé que el camino más corto era var=$((expression))Pero, ¿por qué lo usas solo una vez y desperdicias toneladas de caracteres en expr en backticks?
for(i in 0:9)cat(F<-sample(setdiff(1:6,c(F,7-F)),1))
para ((i = 10, f = RANDOM% 6 + 1; i -;)) do printf $ f ((n = ALEATORIO% 4 + 1, m = f <4? f: 7-f, f = n <m || ++ n <7-m? n: n + 1)) hecho
La idea clave es que para elegir un número aleatorio en [1, x] que no sea igual a y, puede elegir un número aleatorio en [1, x-1] y luego incrementar si es> = y. Para este problema, queremos un número aleatorio en [1,6] que no sea igual a f o 7-f. Tenemos que hacer las dos pruebas en orden min (f, 7-f), max (f, 7-f).
Suponiendo que un entorno inicialmente vacío podría ahorrar 2 caracteres al no inicializar i y cambiar la condición del bucle a i++<10
Fuertemente golfizado de la respuesta de Aman ZeeK Verma:
para ((i = 10, f = 0; i -;)) hacer para ((n = f; n == f || n + f == 7; f = RANDOM% 6 + 1)) hacer: hecho printf $ f hecho
NB podría decirse que puede reducirse en 5 caracteres cambiando la primera línea a, for((;i++<10;))pero eso hace suposiciones que no siempre son válidas. Funcionaría bien en ideone, pero alguien que lo ejecute desde un shell podría tener io fexportar a algo que no sea cero.
man bash, lo recomiendo. Una vez lo leí de principio a fin, y el solo hecho de tener una vaga idea de lo que es posible y vale la pena buscar me ha servido mucho.
-join(0..9|%{($d=1..6-ne(7-$d)-ne$d|random)})
Bastante trivial, en realidad. Genero una lista de posibles tiradas de dados 1..6y luego selecciono solo las que no son iguales a siete menos la última tirada y luego solo las que no son iguales a la última tirada. De la lista restante, luego selecciono un elemento aleatorio y se lo asigno $d. Ya que$d que inicialmente se trata como 0tira un dado normal la primera vez.
Script de prueba:
for($i=0;$i-lt20;$i++){
$o=@(./tipping.ps1)
if ($i-gt0-and$o-eq$o2) { throw "Must have random output" }
if ($o.count-ne1) { throw "Must only have one line of output" }
if ($o[0]-match'[^1-6]'){ throw "Invalid characters" }
if($o[0].length-ne10){ throw "Wrong length: $($o[0].length)" }
$r=[char[]]($o[0])|%{$_-48}
for ($x=1;$x-lt$r.count;$x++){
if ($r[$x-1]+$r[$x]-eq7) { throw "Not a tipping: $($r[$x-1]) and $($r[$x])" }
}
$o2=$o
}
Historia:
The term 'random' is not recognized as a cmdlet, function, operable program, or script file. Verify the term and try again.
Get-Randomcmdlet no existía en v1.
Esto debería funcionar, pero desafortunadamente el generador aleatorio de J se atasca después de la tercera iteración:
a=:>:i.6
f=:a#~1-(+&(a=])7&-)
((,(?4)&{@f@(_1&{))^:9)>:?6
6 4 5 4 5 4 5 4 5 4
(?4)tiende a enrollarse una vez y tratarse como una constante para las iteraciones posteriores si no tiene cuidado con él. Trabajé alrededor usando una (?@4:)construcción similar.
(0..9).reduce([]){|m|m<<((1..6).to_a-[d=m[-1]||0,7-d]).shuffle[0]}
>:(?@4:{(i.6)-.],5&-)^:(<10)?6
6 2 3 5 4 2 4 1 3 6
Explicaciones (leer de derecha a izquierda):
?6 devuelve un número aleatorio entre 0 y 5^:(<10)aplica una función 9 veces, acumulando los resultados a lo largo del camino. La función es:?@4:{(i.6)-.],5&-
] , 5&- devuelve una matriz del número de entrada y su complemento a 5 (actualmente estamos manejando números basados en 0, por lo que la suma de caras opuestas es 5)(i. 6) -. los elimina del conjunto completo de enteros 0 a 5. Nos quedan todas las posiciones válidas después de una sola operación de volcado desde la posición de entrada.?@4: { elige uno de esos al azar.>: incrementa toda la secuencia para devolver las cifras al intervalo de 1 a 6.16 2f 25 08 41 20 17 30 16 2f 31 31 25 09 19 32
Así es como funciona
16 2f 25 # make range from 1 to 6 and push random element
08 # start block
41 # duplicate top of stack twice
20 17 30 # negate top of stack and add 7
16 2f # push range from 1 to 6
31 31 # do set-wise difference with each of the two previous numbers
25 # push a random element from the list
09 # end block
19 32 # repeat block 9 times
Las dos nuevas líneas son necesarias e incluidas en el carácter cuentan como un carácter cada una.
RANDOMIZE:FOR I=0TO 9
1N=INT(RND*6)+1:IF L=N OR L+N=7THEN 1
?N:L=N:NEXT
For(I,1,9
Ans→X
Repeat Ans≠X and Ans≠7-X
randInt(1,6
End
Disp Ans
End
Solución aburrida, pero es más corta que la revisión anterior. Aprovecho el hecho de que en una calculadora nueva, Ansse inicializa a cero.
v->{int d=(int)(Math.random()*6+1),i=10,p;String r=""+d;for(;i-->0;r+=d)for(p=d;p==d|p+d==7;d=(int)(Math.random()*6+1));return r;}Como programa completo con método principal detallado, esto sería 178 bytes en su lugar:
interface M{static void main(String[]a){int d=(int)(Math.random()*6+1),i=10,p;String r=""+d;for(;i-->0;r+=d)for(p=d;p==d|p+d==7;d=(int)(Math.random()*6+1));System.out.print(r);}}Semi-puerto de la respuesta Bash de @AmanZeeKVerma .
Explicación:
v->{ // Method with empty unused parameter and String return-type
int d=(int)(Math.random()*6+1),
// Random dice-roll 1-6
i=10, // Counter-integer, starting at 10
p; // Temp integer to store new side
String r=""+d; // Result-String, starting at the first dice-roll
for(;i-->0; // Loop (1) 10 times:
r+=d) // After every iteration, append the result with a random side
for(p=d; // Set the new side to the current side
p==d // Loop (2) as long as the new side and current side are the same
|p+d==7; // or as long as both combined are exactly 7:
d=(int)(Math.random()*6+1)
// Set the new side to a random side 1-6
); // End of loop (2)
// End of loop (1) (implicit / single-line body)
return r; // Return the result-String
} // End of methoda=randi(6)
for i=1:9;b=1:6;b([a,7-a])=[];a=b(randi(4))
end
Me alegra poder mostrar la xaleatorización de puntero de código de > <> ya que no recuerdo haberlo visto aquí.
a&0 v
/2v
1x3v
>x< <<
6x4v
\5v ~
:{:/ ^?=}
:{:/ ^?=7+}
:~$<^&;!?:-1&n
Puede probarlo en este intérprete en línea (pegar código, enviar, iniciar).
c(3,5,1,4,2,6)[(sample(1:6,1)+cumsum(sample((-2:2)[-3],9,T)))%%6+1]Hay una respuesta R más golfista, pero creo que este es un enfoque diferente de las respuestas presentadas hasta ahora.
c(3,5,1,4,2,6) #A dice and its facets
(sample(1:6,1) #Initial dice roll
+cumsum(sample((-2:2)[-3],9,T))) #9 tippings in c(-2,-1,1,2)
%%6+1 #converts to values in [0,6]
[ ]#6LΩUTFX?6LʒDXÊsX+7Ê*}ΩU
Definitivamente se puede jugar al golf, pero actualmente no lo veo.
Explicación:
6LΩ # Pick a random value from the range [1,6]
# i.e. [1,2,3,4,5,6] → 3
U # Save this random value in variable `X`
TF # Loop 10 times:
X? # Print `X` without newline to STDOUT
6Lʒ } # Create a range [1,6] again, and filter it by:
DXÊ # Check if the current value is not equal to `X`
# i.e. 1 and 3 → 1 (truthy)
# i.e. 3 and 3 → 0 (falsey)
sX+ # Sum the current value with `X`
# i.e. 1 and 3 → 4
# i.e. 3 and 3 → 6
7Ê # And check if it's not equal to 7
# i.e. 4 and 7 → 1 (truthy)
# i.e. 6 and 7 → 1 (truthy)
* # If both checks are truthy, keep it in the filtered list
# i.e. 1 and 1 → 1 (truthy)
# i.e. 0 and 1 → 0 (falsey)
Ω # Pick a random value from the filtered list
# i.e. [1,2,5,6] → 1
U # And save it in variable `X` for the next iteration of the loop