Ponieważ nie ma wystarczającej liczby prostych wyzwań związanych z golfem :

Utwórz opcjonalnie nienazwany program lub funkcję, która, podając (w jakikolwiek sposób) liczbę całkowitą 1 ≤ N ≤ 10000, generuje wartość True Twojego języka z pseudolosowym prawdopodobieństwem 1 / N, w przeciwnym razie False.

Pamiętaj, że wymóg nazewnictwa został usunięty. Możesz odpowiednio edytować odpowiedzi i wyniki.

Niektóre języki używają 1 (lub -1) i 0 dla Prawda i Fałsz, to też jest w porządku.

Przykład:

Przykładowe testy wejściowe:

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

Tj. Podano 4; zwraca True z 25% szansą i False z 75% szansą.

Szablony MediaWiki z ParserFunctions , 48 bajtów

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

Pyth, 3 bajty

!OQ

Wypróbuj online

Prosta inwersja losowego wyboru z 0 na wejście

Zabawnie w Pyth nie można stworzyć funkcji, która to robi, $ponieważ funkcje Pyth są automatycznie zapamiętywane.

CJam, 5 bajtów

Muszę być szybki z tymi ...

rimr!

Sprawdź to tutaj.

Wyjaśnienie

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 bajty przy użyciu tokena jednobajtowego

not(int(Ansrand

Określa, czy całkowita liczba wejściowa razy liczba losowa w [0,1) wynosi zero. Ansrand<1działa również.

MATL, 5 bajtów

Trzy różne wersje tego jednego, wszystkie o długości 5.

iYr1=

który pobiera dane wejściowe ( i), generuje losową liczbę całkowitą między 1 a tą liczbą ( Yr) i sprawdza, czy jest ona równa 1 ( 1=). Alternatywnie,

li/r>

wykonaj 1 ( lobejście, ponieważ 1iw tej chwili występuje błąd ), weź dane wejściowe ( i), podziel, aby uzyskać 1 / N ( /), zrób losową liczbę od 0 do 1 ( r) i sprawdź, czy losowa liczba jest mniejsza niż 1 / N. Lub,

ir*1<

weź i wprowadź ( i) i pomnóż przez losową liczbę od 0 do 1 ( r*) i sprawdź, czy wynik jest mniejszy niż 1 ( 1<).

W Matlab, a nie MATL, możesz wykonywać tę anonimową funkcję

@(n)n*rand<1

dla 12 bajtów, które są używane ans(5)np. przez wykonanie .

JavaScript ES6, 15 bajtów

-5 bajtów dzięki Downgoat.

x=>1>new Date%x

Na podstawie (zastosowań) techniki tej odpowiedzi.

Julia, 17 16 15 bajtów

n->2>rand(1:n)

Jest to funkcja, która generuje losową liczbę całkowitą od 1 do ni sprawdza, czy jest ona mniejsza niż 2. Będzie to miało 1 / n szansę na to, a zatem 1 / n szansę na powrót true.

Oszczędność 1 bajtu dzięki Thomasowi Kwa!

Microscript II , 3 bajty

NR!

Odczytuje liczbę całkowitą n, generuje losową liczbę całkowitą pomiędzy 0i n-1(włącznie), a następnie stosuje do tej wartości negację logiczną.

Cukierki , 2 bajty

Hn

H oznacza Heisen-double

n oznacza nie

„N” jest przekazywane z flagą -i jako wejście numeryczne. Wartości pozostawione na stosie są drukowane przy wyjściu.

"Długa forma:

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

Poważnie, 3 bajty

,JY

0jest falsey i 1jest prawdą. Wypróbuj online

Wyjaśnienie:

,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 bajtów

kod

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

Generuje liczbę z równomiernego rozkładu (od 0 do 1) i powinna być obliczona do prawdziwej 1 / n razy.

Japt, 6 bajtów

1>U*Mr

Wypróbuj online!

Mrjest odpowiednikiem JS Math.random. Reszta jest dość oczywista. Prawdopodobnie mógłbym dodać funkcję liczbową, która generuje losowe liczby zmiennoprzecinkowe między 0 a liczbą. Kiedy tak się stanie, zostaną zapisane dwa bajty:

1>Ur    // Doesn't currently work

Alternatywna wersja:

1>Ð %U

Ðjest równoważne new Date(, a obiekt Date, gdy zostanie poproszony o konwersję na liczbę, staje się bieżącym znacznikiem czasu w milisekundach. Jest to więc całkowicie losowe, chyba że jest uruchamiane wiele razy na ms.

Cudowny , 21 bajtów

}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

Uznałem, że jestem 0falseyem i 1prawdę, chociaż nie ma prawdziwego powodu, aby widzieć, że Marbelous tak naprawdę nie ma „if”. Więcej Marbelousy zostanie wydane na {0rzecz prawdy i {>fałszu. Wyglądałoby to tak:

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

Ale nie jestem pewien, czy to ważne.

APL, 6 3 bajty

+=?

Jest to ciąg funkcji, który przyjmuje liczbę całkowitą i zwraca 1 lub 0 (prawda / fałsz APL). Generujemy losową liczbę całkowitą od 1 do wejścia za pomocą ?, a następnie sprawdzamy, czy wejście jest równe tej liczbie całkowitej. Daje to szansę na prawdziwość 1 / wejście.

Zaoszczędź 3 bajty dzięki Thomasowi Kwa!

PlatyPar , 3 bajty

#?!

#?pobiera losową liczbę, w [0,n)której njest wprowadzany. !zwraca, truejeśli poprzednia liczba 0, w przeciwnym razie zwraca false.

Używając nowszych funkcji, które zostały zaimplementowane (ale niestety dla mnie nie popełniono), zanim zadano to pytanie, mogę obniżyć do 2 dzięki ~! Wypróbuj online !

Java, 43 bajty

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

C, 24 bajty

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

> <>, 27 + 3 dla -v = 30 bajtów

Oto niejednolite rozwiązanie, w którym modyfikuję N sumę 15876 losowych wyborów 0 lub 1:

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

N musi być wprowadzone na stos z flagą -v, wyjście to 0 dla falsey i 1 dla prawdy.

O wiele inteligentniejsze i jednolite rozwiązanie, które zamiast tego działa dla 1/2 N:

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

Dla wejścia 3 masz 1/8 szans na uzyskanie 1 i 7/8 na uzyskanie 0.

Objaśnienie:

Dołączam tyle, xile potrzeba na czwartej linii i xotaczam je kierunkami, więc są tylko dwa wyjścia : albo falsey, albo następny x. Jeśli wszystko xpójdzie we właściwym kierunku, ostatni doprowadzi do prawdziwego wyniku.

Na przykład dla N = 5 końcowa przestrzeń kodowa jest następująca:

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

Mathematica, 18 16 bajtów

#RandomReal[]<1&

Podstawowe rozwiązanie. Bezimienna Functiontworzy losową liczbę w [0, 1), mnoży ją przez argument i sprawdza, czy wciąż jest mniejsza niż 1.

Python, 42 bajty

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

Edycja : Usunięto time.time()odpowiedź z powodu dystrybucji.

TeaScript , 3 bajty

!N×

Wypróbuj tutaj.

Wyjaśnienie

 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

Rozmyte Octo Guacamole, 10 bajtów

^-!_[0]1.|

Wyjaśnienie:

^-!_[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 bajtów

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

Ten kod tworzy zakres od 0 do zera, ale z wyłączeniem danych wejściowych *. Następnie pickjest losowy i !zwraca True, gdy otrzyma 0.

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

To pobiera dane wejściowe *i mnoży je przez losową wartość Num, 0..^1a następnie zwraca wartość True, jeśli była mniejsza niż 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 bajty

Kod:

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

może (+ P) jest funkcją, która kończy się prawdopodobieństwem P, a kończy się niepowodzeniem z prawdopodobieństwem 1-P

Przykład:

p(4).
false

p(4).
false

p(4).
true

PowerShell, 25 bajtów

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

Get-RandomFunkcja gdy otrzymuje -Maparametr ximum nzwraca wartość z zakresu [0,n). Wykorzystujemy to, odejmując 1 od naszych danych wejściowych $args[0], więc jesteśmy właściwie indeksowani do zera i otrzymujemy losową wartość. Dokładnie 1/nw tym czasie ta wartość będzie 0, więc kiedy my Boolean, nie razem z !nią wróci True. Inne czasy powrócą False.

J, 3 bajty

0=?

To monadyczny widelec, który bierze argument po prawej stronie. Podobnie jak APL? generuje losową liczbę całkowitą; jednak tablice J są zerowane. Porównujemy więc do 0 zamiast do wejścia.

Minkolang 0,14 , 7 bajtów

1nH1=N.

Wypróbuj tutaj.

Wyjaśnienie

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 bajty

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

Czyta nz wiersza poleceń, na przykład:

$ php probability.php 4

Dane wyjściowe ( falsejest rzutowany na pusty ciąg w PHP) lub 1(w przypadku true).

C #, 56 45 bajtów

Dzięki pinkfloydx33 jest teraz 45.

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

Stare 56 bajtów

Generuje losową liczbę całkowitą dodatnią większą lub równą 0 i mniejszą niż ni sprawdza, czy jest mniejsza 1i zwraca wynik porównania.

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

Scratch , 63 bajty

Wypróbuj online!
Zdjęcie: kod Scratchblocks :

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