Porque no hay suficientes desafíos simples de código de golf :

Cree un programa o función opcionalmente sin nombre que, dado (por cualquier medio) un número entero 1 ≤ N ≤ 10000, genera el valor Verdadero de su idioma con una probabilidad pseudoaleatoria de 1 / N, Falso de lo contrario.

Tenga en cuenta que se ha eliminado el requisito de denominación. Siéntase libre de editar las respuestas y las puntuaciones en consecuencia.

Algunos idiomas usan 1 (o -1) y 0 para Verdadero y Falso, eso también está bien.

Ejemplo:

Ejemplo de pruebas de entrada:

4 -> True
4 -> False
4 -> False
4 -> False
4 -> False
4 -> True
4 -> False
4 -> False

Es decir, 4; devuelve True con una probabilidad del 25% y False con una probabilidad del 75%.

Plantillas MediaWiki con ParserFunctions , 48 bytes

{{#ifexpr:1>{{#time:U}} mod {{{n}}}|true|false}}

Pyth, 3 bytes

!OQ

Pruébalo en línea

Inversión simple de elección aleatoria de 0 a entrada

Divertidamente en Pyth no es posible hacer una función que lo haga sin esto $porque las funciones de Pyth se memorizan automáticamente.

CJam, 5 bytes

Tengo que ser rápido con estos ...

rimr!

Pruébalo aquí.

Explicación

ri e# Read input and convert to integer N.
mr e# Get a uniformly random value in [0 1 ... N-1].
!  e# Logical NOT, turns 0 into 1 and everything else into 0.

TI-BASIC, 4 bytes usando tokens de un byte

not(int(Ansrand

Determina si la parte entera de la entrada multiplicada por un número aleatorio en [0,1) es cero. Ansrand<1También funciona.

MATL, 5 bytes

Tres versiones diferentes de este, todas de longitud 5.

iYr1=

que toma una entrada ( i), genera un número entero aleatorio entre 1 y ese número ( Yr), y ve si es igual a 1 ( 1=). Alternativamente,

li/r>

hacer un 1 ( l, una solución alternativa porque hay un error al hacer 1ien este momento), tomar una entrada ( i), dividir para obtener 1 / N ( /), hacer un número aleatorio entre 0 y 1 ( r), y ver si el azar El número es menor que 1 / N. O,

ir*1<

take e input ( i), y multiplique por un número aleatorio entre 0 y 1 ( r*), y vea si el resultado es menor que 1 ( 1<).

En Matlab, no en MATL, puedes hacer esta función anónima

@(n)n*rand<1

para 12 bytes, que se usa haciendo ans(5), por ejemplo.

JavaScript ES6, 15 bytes

-5 bytes gracias a Downgoat.

x=>1>new Date%x

Basado en (usos) de la técnica de esta respuesta.

Julia, 17 16 15 bytes

n->2>rand(1:n)

Esta es una función que genera un número entero aleatorio entre 1 y nprueba si es menor que 2. Habrá una probabilidad de 1 / n de que esto suceda y, por lo tanto, una probabilidad de 1 / n de regresar true.

¡Salvado 1 byte gracias a Thomas Kwa!

Microscript II , 3 bytes

NR!

Lee un entero n, genera un entero aleatorio entre 0y n-1(inclusive), luego aplica una negación booleana a ese valor.

Candy , 2 bytes

Hn

H significa Heisen-double

n significa no

La 'n' se pasa con la bandera -i como entrada numérica. Los valores que quedan en la pila se imprimen al salir.

"Forma larga:

rand   # number between 0 and pop()
not    # cast to int, invert non-zero to zero, and zero to one

En serio, 3 bytes

,JY

0es falsey y 1es sincero. Pruébalo en línea

Explicación:

,JY
,    get input
 J   push a random integer in range(0, input) ([0, ..., input-1])
  Y  logical not: push 0 if truthy else 1  

R, 30 22 bytes

código

cat(runif(1)<1/scan())          #new
f=function(N)cat(runif(1)<1/N)  #old

Genera un número a partir de una distribución uniforme (0 a 1) y debe evaluar a verdadero 1 / n de las veces.

Japt, 6 bytes

1>U*Mr

Pruébalo en línea!

Mres equivalente a JS's Math.random. El resto es bastante obvio. Probablemente podría agregar una función numérica que genere un flotante aleatorio entre 0 y el número. Cuando esto sucede, se guardarán dos bytes:

1>Ur    // Doesn't currently work

Versión alternativa:

1>Ð %U

Ðes equivalente a new Date(, y el objeto Fecha, cuando se le pide que convierta a un número, se convierte en la marca de tiempo actual en milisegundos. Por lo tanto, esto es completamente aleatorio, a menos que se ejecute varias veces por ms.

Maravilloso , 21 bytes

}0    # takes one input n
--    # decrements n
??    # random value from range 0..n (inclusive)
=0?0  # push right if not equal to 0, fall through otherwise | convert to zero
++    # increment | no-op
{0//  # output | push left

He considerado 0ser falso y 1sincero, aunque no hay una razón real para eso, ya que Marbelous realmente no tiene un if. Más Marbelousy se generaría como {0verdadero y {>falso. Esto se vería así:

}0
--
??
=0{>
{0

Pero no estoy seguro de que sea válido.

APL, 6 3 bytes

+=?

Este es un tren de funciones que toma un número entero y devuelve 1 o 0 (APL verdadero / falso). Generamos un entero aleatorio de 1 a la entrada usando ?, luego verificamos si la entrada es igual a ese entero. Eso da como resultado una probabilidad de 1 / entrada de verdadero.

¡Guardado 3 bytes gracias a Thomas Kwa!

PlatyPar , 3 bytes

#?!

#?obtiene un número aleatorio [0,n)donde nse ingresa. !devuelve truesi el número anterior es 0, de lo contrario, regresa false.

Utilizando funciones más recientes que fueron implementadas (pero desafortunadamente para mí no comprometidas) antes de que se hiciera esta pregunta, puedo bajarla a 2 con ¡ ~! Pruébelo en línea !

Java, 43 bytes

boolean b(int a){return a*Math.random()<1;}

C, 24 bytes

f(n){return!(rand()%n);}

> <>, 27 + 3 para -v = 30 bytes

Aquí hay una solución no uniforme en absoluto donde modifico N la suma de 15876 selecciones aleatorias de 0 o 1:

0"~":*>:?vr%0=n;
1-$1+$^-1x

N debe ingresarse en la pila con el indicador -v, la salida es 0 para falsey y 1 para verdadero.

Una solución mucho más inteligente y uniforme que funciona para 1/2 ^ N en su lugar:

4{:?!v1-}:">"$2p:"x"$3p:"^"$4p1+:">"$3p1+!
   ^1<
0n;
1n;>
 

Para una entrada 3 tienes 1/8 de posibilidades de obtener 1 y 7/8 de obtener 0.

Explicacion:

Agrego todo lo xque sea necesario en la cuarta línea y los rodeo con instrucciones, por lo que solo hay dos formas de salir x: la salida falsey o la siguiente x. Si todos xvan en la dirección correcta, el último se dirigirá a la salida verdadera.

Por ejemplo, para N = 5, el espacio de código final es el siguiente:

4{:?!v1-}:">"$2p:"x"$3p:"^"$4p1+:">"$3p1+!
   ^1<
0n; > > > > >
1n;>x>x>x>x>x>
    ^ ^ ^ ^ ^

Mathematica, 18 16 bytes

#RandomReal[]<1&

Solución básica El anónimo Functioncrea un número aleatorio en [0, 1), lo multiplica por su argumento y comprueba si aún es menor que 1.

Python, 42 bytes

import random
lambda n:1>random.random()*n

Editar : se eliminó la time.time()respuesta debido a la distribución.

TeaScript , 3 bytes

!N×

Pruébalo aquí.

Explicación

 N  maps to Math.rand which is a utility function that returns an integer
    between `arg1` and `arg2` or `0` and `arg1` if only one argument is
    provided.
  × is expanded to `(x)`, where `x` is initialised with the value provided
    in the input boxes; × represents byte '\xd7'
!   negate the result, 0 results in true, anything else false

Fuzzy Octo Guacamole, 10 bytes

^-!_[0]1.|

Explicación:

^-!_[0]1.|

^          # Get input.
 -         # Decrement, so we can append <ToS> zeros and a 1 to the stack.
  !        # Set loop counter.
   _       # Pop, since we are done with the input.
    [      # Start loop
     0     # Push 0
      ]    # End for loop. We have pushed input-1 0s to the stack.
       1   # Push a single 1 to the stack.
        .  # Switch stacks
         | # Pick a random item from the inactive stack, which has n-1 falsy items and 1 truthy item, so the truthy probability is 1/n.
           # (implicit output)

Perl 6 ,  10   8 bytes

!(^*).pick
#  ^- The * is the argument

Este código crea un rango desde 0 hasta, pero excluye la entrada *. Luego pickes uno al azar y !devuelve True cuando recibe a 0.

1>*.rand
# ^- The * is the argument

Esto toma la entrada *y la multiplica por un Num aleatorio y 0..^1luego devuelve True si era menor que 1.

# store it in a lexical code variable for ease of use
my &code = 1>*.rand;

die "never dies here" unless code 1;

for ^8 { say code 4 }

False
True
False
False
False
True
False
False

Prólogo (SWI), 24 bytes

Código:

p(N):-X is 1/N,maybe(X).

quizás (+ P) es una función que tiene éxito con probabilidad P y falla con probabilidad 1-P

Ejemplo:

p(4).
false

p(4).
false

p(4).
true

PowerShell, 25 bytes

!(Random -ma($args[0]--))

La Get-Randomfunción cuando se le da un -Maparámetro ximum ndevuelve un valor del rango [0,n). Aprovechamos eso restando 1 de nuestra entrada $args[0], por lo que estamos indexados adecuadamente a cero y obtenemos un valor aleatorio. Precisamente 1/nla mayor parte del tiempo, este valor será 0, así que cuando lo booleanos, no con !él, devolveráTrue . Los otros tiempos volverán False.

J, 3 bytes

0=?

Esta es una bifurcación monádica que lleva un argumento a la derecha. De manera similar a APL,? genera un entero aleatorio; sin embargo, las matrices J están basadas en cero. Entonces comparamos a 0 en lugar de a la entrada.

Minkolang 0.14 , 7 bytes

1nH1=N.

Pruébalo aquí.

Explicación

1          Pushes 1
 n         Takes number from input
  H        Pops b,a and pushes a random integer between a and b, inclusive
   1=      1 if equal to 1, 0 otherwise
     N.    Output as number and stop.

PHP, 22 bytes

<?=2>rand(1,$argv[1]);

Lee ndesde la línea de comandos, como:

$ php probability.php 4

Salidas ( falsese convierte en una cadena vacía en PHP) o 1(en caso de true).

C #, 56 45 bytes

Gracias a, pinkfloydx33 es 45 ahora.

bool b(int n){return new Random().Next(n)<1;}

56 bytes antiguos

Genera un entero positivo aleatorio mayor o igual a 0 y menor que ny comprueba si es menor 1y devuelve el resultado de la comparación.

bool a(int n){Random r=new Random();return r.Next(n)<1;}

Scratch , 63 bytes

Pruébalo en línea!
Imagen: Código de Scratchblocks :

when gf clicked
ask[]and wait
say<(pick random(1)to(answer))=[1