Porque não existem desafios simples de código-golfe simples o suficiente :

Crie um programa ou função opcionalmente sem nome que, dado (por qualquer meio) um número inteiro 1 ≤ N ≤ 10000, produz o valor True do seu idioma com uma probabilidade pseudo-aleatória de 1 / N, caso contrário, False.

Observe que o requisito de nomeação foi removido. Sinta-se livre para editar respostas e pontuações de acordo.

Alguns idiomas usam 1 (ou -1) e 0 para Verdadeiro e Falso, isso também é bom.

Exemplo:

Testes de entrada de exemplo:

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

Ou seja, dado 4; retorna True com 25% de chance e False com 75% de chance.

Modelos do MediaWiki com ParserFunctions , 48 bytes

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

Pitão, 3 bytes

!OQ

Experimente online

Inversão simples de escolha aleatória de 0 a entrada

Divertidamente no Pyth, não é possível criar uma função que faça isso sem, $porque as funções do Pyth são automaticamente memorizadas.

CJam, 5 bytes

Tem que ser rápido com esses ...

rimr!

Teste aqui.

Explicação

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 um byte

not(int(Ansrand

Determina se a parte inteira da entrada multiplicada por um número aleatório em [0,1) é zero. Ansrand<1também funciona.

MATL, 5 bytes

Três versões diferentes desta, todas de comprimento 5.

iYr1=

que pega uma entrada ( i), gera um número inteiro aleatório entre 1 e esse número ( Yr) e vê se é igual a 1 ( 1=). Alternativamente,

li/r>

faça um 1 ( l, uma solução alternativa porque existe um erro ao fazer 1ino momento), pegue uma entrada ( i), divida para obter 1 / N ( /), faça um número aleatório entre 0 e 1 ( r) e veja se o aleatório número é menor que 1 / N. Ou,

ir*1<

take e input ( i) e multiplique por um número aleatório entre 0 e 1 ( r*) e veja se o resultado é menor que 1 ( 1<).

No Matlab, não no MATL, você pode executar esta função anônima

@(n)n*rand<1

por 12 bytes, usado por ans(5)exemplo, por exemplo.

JavaScript ES6, 15 bytes

-5 bytes graças ao Downgoat.

x=>1>new Date%x

Baseado nos usos da técnica desta resposta.

Julia, 17 16 15 bytes

n->2>rand(1:n)

Essa é uma função que gera um número inteiro aleatório entre 1 e ntesta se é menor que 2. Haverá uma chance de 1 / n disso acontecer e, portanto, uma chance de 1 / n de retornar true.

Guardado 1 byte graças a Thomas Kwa!

Microscript II , 3 bytes

NR!

Lê um número inteiro n, gera um número inteiro aleatório entre 0e n-1(inclusive) e aplica uma negação booleana a esse valor.

Doce , 2 bytes

Hn

H significa Heisen-double

n significa não

O 'n' é passado com o sinalizador -i como entrada numérica. Os valores deixados na pilha são impressos na saída.

"Forma longa:

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

Sério, 3 bytes

,JY

0é falsey e 1é verdade. Experimente online

Explicação:

,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

Ele gera um número a partir de uma distribuição uniforme (0 a 1) e deve ser avaliado como verdadeiro 1 / n das vezes.

Japonês, 6 bytes

1>U*Mr

Experimente online!

Mré equivalente a JS Math.random. O resto é bastante óbvio. Provavelmente eu poderia adicionar uma função numérica que gera uma flutuação aleatória entre 0 e o número. Quando isso acontece, dois bytes serão salvos:

1>Ur    // Doesn't currently work

Versão alternativa:

1>Ð %U

Ðé equivalente a new Date(, e o objeto Date, quando solicitado a converter em um número, se torna o carimbo de data / hora atual em milissegundos. Portanto, isso é inteiramente aleatório, a menos que seja executado várias vezes por ms.

Marbelous , 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

Eu tomei 0a ser Falsey e 1ser truthy, embora não há nenhuma razão real para que, vendo como Marbelous realmente não tem um caso. Mais Marbelousy seria produzido para{0 para verdadeiro e {>falso. Isso ficaria assim:

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

Mas não tenho certeza se isso é válido.

APL, 6 3 bytes

+=?

Este é um trem de funções que pega um número inteiro e retorna 1 ou 0 (verdadeiro / falso do APL). Geramos um número inteiro aleatório de 1 para a entrada usando e ?, em seguida, verificamos se a entrada é igual a esse número inteiro. Isso resulta em uma chance de 1 / entrada de verdade.

Economizou 3 bytes graças a Thomas Kwa!

PlatyPar , 3 bytes

#?!

#?obtém um número aleatório [0,n)onde né inserido. !retorna truese o número anterior0 , caso contrário, ele retorna false.

Usando os recursos mais recentes que foram implementados (mas infelizmente não comprometidos) antes que essa pergunta fosse feita, posso reduzi-lo a 2 com ~! Experimente online !

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

Aqui está uma solução não uniforme onde eu modifique N a soma de 15876 escolhas aleatórias de 0 ou 1:

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

N deve ser inserido na pilha com o sinalizador -v, a saída é 0 para falsey e 1 para verdade.

Uma solução muito mais inteligente e uniforme, que funciona por 1/2 ^ N:

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

Para uma entrada 3, você tem 1/8 de chance de obter 1 e 7/8 de obter 0.

Explicação:

Anexo o quanto xfor necessário na quarta linha e os cerco com instruções para que haja apenas duas maneiras de sair x: a saída falsey ou a próxima x. Se tudo xfor na direção certa, o último encaminhará para a saída de verdade.

Por exemplo, para N = 5, o espaço de código final é o seguinte:

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

Mathematica, 18 16 bytes

#RandomReal[]<1&

Solução básica. O sem nome Functioncria um número aleatório em [0, 1), multiplica-o por seu argumento e verifica se ainda é menor que 1.

Python, 42 bytes

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

Editar : a time.time()resposta foi removida devido à distribuição.

TeaScript , 3 bytes

!N×

Experimente aqui.

Explicação

 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.|

Explicação:

^-!_[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 cria um intervalo de 0 até, mas excluindo a entrada *. Então ele pické um aleatoriamente e !retorna True quando recebe a 0.

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

Isso pega a entrada *e a multiplica por um Num aleatório a partir de 0..^1então retorna True se fosse 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

Prolog (SWI), 24 bytes

Código:

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

talvez (+ P) é uma função que obtém sucesso com a probabilidade P e falha com a probabilidade 1-P

Exemplo:

p(4).
false

p(4).
false

p(4).
true

PowerShell, 25 bytes

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

A Get-Randomfunção quando recebe um -Maparâmetro ximum nretorna um valor do intervalo [0,n). Aproveitamos isso ao subtrair 1 de nossa entrada $args[0], para que possamos indexar corretamente zero e obter um valor aleatório. Precisamente 1/nna época, esse valor será 0, portanto, quando Booleano - e não com !ele, ele retornará True. Os outros horários retornarão False.

J, 3 bytes

0=?

Este é um garfo monádico que leva um argumento à direita. Da mesma forma que APL,? gera um número inteiro aleatório; no entanto, as matrizes J são baseadas em zero. Então, comparamos com 0 em vez de com a entrada.

Minkolang 0.14 , 7 bytes

1nH1=N.

Experimente aqui.

Explicação

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]);

Lê nna linha de comando, como:

$ php probability.php 4

Outputs ( falseé convertido para uma string vazia no PHP) ou 1(no caso de true).

C #, 56 45 bytes

Graças a, pinkfloydx33, são 45 agora.

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

56 bytes antigos

Gera um número inteiro positivo aleatório maior ou igual a 0 e menor que ne verifica se é menor que 1e retorna o resultado da comparação.

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

coçar, arranhão , 63 bytes

Experimente online!
Imagem: Código de blocos de rascunho :

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