Perché non ci sono abbastanza semplici sfide di code-golf :

Crea un programma o una funzione opzionalmente senza nome che, dato (in qualsiasi modo) un numero intero 1 ≤ N ≤ 10000, genera il valore Vero della tua lingua con una probabilità pseudo-casuale di 1 / N, Falso altrimenti.

Si noti che il requisito per la denominazione è stato rimosso. Sentiti libero di modificare le risposte e i punteggi di conseguenza.

Alcune lingue usano 1 (o -1) e 0 per Vero e Falso, anche questo va bene.

Esempio:

Esempi di test di input:

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

Vale a dire 4; restituisce True con una probabilità del 25% e False con una probabilità del 75%.

Modelli MediaWiki con ParserFunctions , 48 byte

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

Pyth, 3 byte

!OQ

Provalo online

Semplice inversione di scelta casuale da 0 a input

In modo divertente in Pyth non è possibile creare una funzione che lo faccia senza $perché le funzioni Pyth vengono automaticamente memorizzate.

CJam, 5 byte

Devo essere veloce con questi ...

rimr!

Provalo qui.

Spiegazione

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 byte usando token a un byte

not(int(Ansrand

Determina se la parte intera dell'input moltiplica un numero casuale in [0,1) è zero. Ansrand<1funziona anche.

MATL, 5 byte

Tre diverse versioni di questa, tutta la lunghezza 5.

iYr1=

che accetta un input ( i), genera un numero intero casuale compreso tra 1 e quel numero ( Yr) e vede se è uguale a 1 ( 1=). In alternativa,

li/r>

crea un 1 ( l, una soluzione alternativa perché al momento c'è un bug nel fare 1i), prendi un input ( i), dividi per ottenere 1 / N ( /), crea un numero casuale tra 0 e 1 ( r) e vedi se il casuale il numero è inferiore a 1 / N. O,

ir*1<

prendere e inserire ( i) e moltiplicare per un numero casuale compreso tra 0 e 1 ( r*) e vedere se il risultato è inferiore a 1 ( 1<).

In Matlab, non MATL, puoi svolgere questa funzione anonima

@(n)n*rand<1

per 12 byte, che viene utilizzato facendo ans(5), ad esempio.

JavaScript ES6, 15 byte

-5 byte grazie a Downgoat.

x=>1>new Date%x

Basato su (usi) della tecnica di questa risposta.

Julia, 17 16 15 byte

n->2>rand(1:n)

Questa è una funzione che genera un numero intero casuale compreso tra 1 e nverifica se è inferiore a 2. Ci sarà una possibilità 1 / n che ciò accada, e quindi una possibilità 1 / n di tornare true.

Salvato 1 byte grazie a Thomas Kwa!

Microscript II , 3 byte

NR!

Legge un numero intero n, genera un numero intero casuale compreso tra 0e n-1(inclusi), quindi applica una negazione booleana a tale valore.

Caramella , 2 byte

Hn

H sta per Heisen-double

n sta per no

La 'n' viene passata con il flag -i come input numerico. I valori lasciati nella pila vengono stampati all'uscita.

"Forma lunga:

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

Scherzi a parte, 3 byte

,JY

0è falsità ed 1è verità. Provalo online

Spiegazione:

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

codice

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

Genera un numero da una distribuzione uniforme (da 0 a 1) e dovrebbe essere valutato al vero 1 / n dei tempi.

Japt, 6 byte

1>U*Mr

Provalo online!

Mrè equivalente a JS Math.random. Il resto è abbastanza ovvio. Probabilmente potrei aggiungere una funzione numerica che genera un float casuale tra 0 e il numero. Quando ciò accade, verranno salvati due byte:

1>Ur    // Doesn't currently work

Versione alternativa:

1>Ð %U

Ðè equivalente a new Date(e l'oggetto Date, quando viene chiesto di convertirlo in un numero, diventa il timestamp corrente in millisecondi. Pertanto, questo è del tutto casuale, a meno che non venga eseguito più volte per ms.

Marbelous , 21 byte

}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

Ho preso 0per essere falso ed 1essere sincero, anche se non vi è alcuna ragione reale per questo visto che Marbelous non ha davvero un se. Più Marbelousy verrebbe emesso {0per vero e {>falso. Questo sarebbe simile a questo:

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

Ma non sono sicuro che sia valido.

APL, 6 3 byte

+=?

Questo è un treno di funzioni che accetta un numero intero e restituisce 1 o 0 (vero / falso di APL). Generiamo un numero intero casuale da 1 all'input usando ?, quindi controlliamo se l'input è uguale a quell'intero. Ciò si traduce in una possibilità 1 / input di true.

Salvato 3 byte grazie a Thomas Kwa!

PlatyPar , 3 byte

#?!

#?ottiene un numero casuale [0,n)dove nviene inserito. !ritorna truese il numero prima è 0, altrimenti ritornafalse .

Utilizzando le funzionalità più recenti che sono state implementate (ma purtroppo per me non impegnate) prima che mi facesse questa domanda, posso ridurlo a 2 con ~! Provalo online !

Java, 43 byte

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

C, 24 byte

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

> <>, 27 + 3 per -v = 30 byte

Ecco una soluzione per nulla uniforme in cui mod N la somma di 15876 scelte casuali di 0 o 1:

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

N deve essere inserito nello stack con -v flag, l'output è 0 per falsey e 1 per verità.

Una soluzione molto più intelligente e uniforme che funziona invece per 1/2 ^ N:

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

Per un input 3 hai 1/8 possibilità di ottenere 1 e 7/8 di ottenere 0.

Spiegazione :

Aggiungo quanto basta xsulla quarta riga e li xcircondo di direzioni in modo che ci siano solo due vie di uscita : la falsa uscita o la successiva x. Se tutti xvanno nella giusta direzione, l'ultimo verrà indirizzato all'output vero.

Ad esempio per N = 5, lo spazio dei codici finale è il seguente:

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

Mathematica, 18 16 byte

#RandomReal[]<1&

Soluzione di base. Il senza nome Functioncrea un numero casuale in [0, 1), lo moltiplica per il suo argomento e verifica se è ancora inferiore a 1.

Python, 42 byte

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

Modifica : rimossa la time.time()risposta a causa della distribuzione.

TeaScript , 3 byte

!N×

Provalo qui.

Spiegazione

 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 byte

^-!_[0]1.|

Spiegazione:

^-!_[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 byte

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

Questo codice crea un intervallo compreso tra 0 e escluso l'input *. Quindi pickè uno a caso e !restituisce True quando riceve un 0.

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

Questo prende l'input *e lo moltiplica per un numero casuale da 0..^1quindi restituisce True se era inferiore a 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 byte

Codice:

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

forse (+ P) è una funzione che ha successo con la probabilità P e fallisce con la probabilità 1-P

Esempio:

p(4).
false

p(4).
false

p(4).
true

PowerShell, 25 byte

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

La Get-Randomfunzione quando viene assegnato un -Maparametro ximum nrestituisce un valore dall'intervallo [0,n). Lo sfruttiamo sottraendo 1 dal nostro input $args[0], quindi siamo correttamente indicizzati a zero e otteniamo un valore casuale. Proprio 1/nnel tempo, questo valore lo sarà 0, quindi quando booleano non lo !restituirà True. Le altre volte torneranno False.

J, 3 byte

0=?

Questa è una forcella monadica che prende una discussione a destra. Analogamente a APL,? genera un numero intero casuale; tuttavia, le matrici J sono a base zero. Quindi confrontiamo con 0 anziché con l'input.

Minkolang 0,14 , 7 byte

1nH1=N.

Provalo qui.

Spiegazione

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 byte

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

Legge ndalla riga di comando, come:

$ php probability.php 4

Output ( falseviene castato su una stringa vuota in PHP) o 1(in caso di true).

C #, 56 45 byte

Grazie a pinkfloydx33 sono 45 adesso.

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

Vecchi 56 byte

Genera intero positivo casuale maggiore o uguale a 0 e minore di ne verifica se è minore di 1e restituisce il risultato del confronto.

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

Scratch , 63 byte

Provalo online!
Immagine: codice Scratchblocks :

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