Karena tidak ada cukup tantangan kode-golf sederhana :

Buat program atau fungsi opsional yang tidak disebutkan namanya yang, diberikan (dengan cara apa pun) bilangan bulat 1 ≤ N ≤ 10000, mengeluarkan nilai True bahasa Anda dengan probabilitas pseudo-acak 1 / N, False sebaliknya.

Harap perhatikan bahwa persyaratan untuk penamaan telah dihapus. Merasa bebas untuk mengedit jawaban dan skor yang sesuai.

Beberapa bahasa menggunakan 1 (atau -1) dan 0 untuk Benar dan Salah, itu juga baik.

Contoh:

Contoh tes input:

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

Yaitu diberikan 4; mengembalikan Benar dengan peluang 25% dan Salah dengan peluang 75%.

Templat MediaWiki dengan ParserFunctions , 48 byte

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

Pyth, 3 byte

!OQ

Cobalah online

Pembalikan sederhana dari pilihan acak dari 0 ke input

Menariknya dalam Pyth tidak mungkin untuk membuat fungsi yang melakukan ini tanpa $karena fungsi Pyth secara otomatis memoize.

CJam, 5 byte

Harus cepat dengan yang ini ...

rimr!

Uji di sini.

Penjelasan

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 menggunakan token satu byte

not(int(Ansrand

Menentukan apakah bagian integer dari input kali angka acak dalam [0,1) adalah nol. Ansrand<1juga berfungsi.

MATL, 5 byte

Tiga versi berbeda dari yang ini, semuanya panjangnya 5.

iYr1=

yang mengambil input ( i), menghasilkan integer acak antara 1 dan angka itu ( Yr), dan melihat apakah itu sama dengan 1 ( 1=). Kalau tidak,

li/r>

membuat 1 ( l, solusi karena ada bug dengan melakukan 1isaat ini), ambil input ( i), bagi untuk mendapatkan 1 / N ( /), buat angka acak antara 0 dan 1 ( r), dan lihat apakah acak jumlahnya lebih kecil dari 1 / N. Atau,

ir*1<

ambil dan masukkan ( i), dan kalikan dengan angka acak antara 0 dan 1 ( r*), dan lihat apakah hasilnya lebih kecil dari 1 ( 1<).

Di Matlab, bukan MATL, Anda dapat melakukan fungsi anonim ini

@(n)n*rand<1

untuk 12 byte, yang digunakan dengan melakukan ans(5), misalnya.

JavaScript ES6, 15 byte

-5 byte berkat Downgoat.

x=>1>new Date%x

Berdasarkan off (penggunaan) dari ini teknik jawaban ini.

Julia, 17 16 15 byte

n->2>rand(1:n)

Ini adalah fungsi yang menghasilkan bilangan bulat acak antara 1 dan ndan menguji apakah kurang dari 2. Akan ada peluang 1 / n dari hal ini terjadi, dan dengan demikian peluang 1 / n untuk kembali true.

Disimpan 1 byte berkat Thomas Kwa!

Microscript II , 3 byte

NR!

Membaca bilangan bulat n, menghasilkan bilangan bulat acak antara 0dan n-1(inklusif), lalu menerapkan negasi boolean ke nilai tersebut.

Permen , 2 byte

Hn

H adalah singkatan dari Heisen-double

n berarti tidak

'N' dilewatkan dengan flag -i sebagai input numerik. Nilai yang tersisa di tumpukan dicetak saat keluar.

"Bentuk panjang:

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

Serius, 3 byte

,JY

0adalah kepalsuan dan kebenaran 1. Cobalah online

Penjelasan:

,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

kode

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

Ini menghasilkan angka dari distribusi seragam (0 ke 1) dan harus mengevaluasi ke true 1 / n kali.

Japt, 6 byte

1>U*Mr

Cobalah online!

Mrsetara dengan JS Math.random. Sisanya cukup jelas. Saya mungkin bisa menambahkan fungsi angka yang menghasilkan float acak antara 0 dan angka. Ketika ini terjadi, dua byte akan disimpan:

1>Ur    // Doesn't currently work

Versi alternatif:

1>Ð %U

Ðsetara dengan new Date(, dan objek Tanggal, ketika diminta untuk mengkonversi ke angka, menjadi cap waktu saat ini dalam milidetik. Dengan demikian, ini sepenuhnya acak, kecuali jika dijalankan beberapa kali 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

Saya dianggap 0falsey dan jujur 1, meskipun tidak ada alasan nyata untuk melihat Marbelous tidak benar-benar memiliki if. Lebih banyak Marbelousy akan menjadi output {0untuk benar dan {>salah. Ini akan terlihat seperti ini:

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

Tapi saya tidak yakin itu valid.

APL, 6 3 byte

+=?

Ini adalah kereta fungsi yang mengambil bilangan bulat dan mengembalikan 1 atau 0 (APL benar / salah). Kami menghasilkan integer acak dari 1 ke input menggunakan ?, lalu memeriksa apakah input sama dengan integer itu. Yang menghasilkan peluang 1 / input benar.

Disimpan 3 byte berkat Thomas Kwa!

PlatyPar , 3 byte

#?!

#?mendapat nomor acak di [0,n)mana ninput. !kembali truejika nomor sebelum itu 0, kalau tidak kembali false.

Menggunakan fitur yang lebih baru yang diimplementasikan (tapi sayangnya bagi saya tidak berkomitmen) sebelum pertanyaan ini diajukan, saya bisa turun ke 2 dengan ~! Coba online !

Java, 43 byte

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

C, 24 byte

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

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

Berikut ini adalah solusi yang tidak seragam di mana saya mod N jumlah 15876 pilihan acak 0 atau 1:

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

N harus menjadi input pada stack dengan -v flag, output adalah 0 untuk falsey dan 1 untuk truey.

Solusi yang jauh lebih cerdas dan seragam yang bekerja untuk 1/2 ^ N sebagai gantinya:

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

Untuk input 3, Anda memiliki 1/8 peluang untuk mendapatkan 1 dan 7/8 dari mendapatkan 0.

Penjelasan:

Saya menambahkan sebanyak yang xdiperlukan pada baris ke-4 dan mengelilinginya dengan arah sehingga hanya ada dua jalan keluar x: baik output falsey atau berikutnya x. Jika semua xpergi ke arah yang benar, yang terakhir akan mengarahkan ke output yang benar.

Misalnya untuk N = 5, ruang kode terakhir adalah sebagai berikut:

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

Mathematica, 18 16 byte

#RandomReal[]<1&

Solusi dasar. Yang tidak disebutkan namanya Functionmenciptakan angka acak dalam [0, 1), mengalikannya dengan argumennya, dan memeriksa apakah masih kurang dari 1.

Python, 42 byte

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

Sunting : Menghapus time.time()jawaban karena distribusi.

TeaScript , 3 byte

!N×

Coba di sini.

Penjelasan

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

Penjelasan:

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

Kode ini menciptakan Rentang dari 0 hingga tetapi tidak termasuk input *. Kemudian picks satu secara acak dan !mengembalikan True ketika menerima a 0.

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

Ini mengambil input *dan mengalikannya dengan jumlah acak dari 0..^1lalu mengembalikan True jika itu lebih kecil dari 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

Kode:

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

mungkin (+ P) adalah fungsi yang berhasil dengan probabilitas P dan gagal dengan probabilitas 1-P

Contoh:

p(4).
false

p(4).
false

p(4).
true

PowerShell, 25 Bytes

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

The Get-RandomFungsi ketika diberi -Maparameter ximum nmengembalikan nilai dari jangkauan [0,n). Kami memanfaatkannya dengan mengurangi 1 dari input kami $args[0], jadi kami benar-benar mengindeks nol, dan mendapatkan nilai acak. Tepatnya 1/nwaktu, nilai ini akan jadi 0, jadi ketika kita Boolean-bukan dengan !itu akan kembali True. Kali lain akan kembali False.

J, 3 byte

0=?

Ini adalah garpu monadik yang mengambil argumen di sebelah kanan. Sama halnya dengan APL,? menghasilkan bilangan bulat acak; Namun, array J berbasis nol. Jadi kami membandingkan dengan 0 bukan dengan input.

Minkolang 0,14 , 7 byte

1nH1=N.

Coba di sini.

Penjelasan

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

Dibaca ndari baris perintah, seperti:

$ php probability.php 4

Output ( falsedilemparkan ke string kosong di PHP) atau 1(dalam kasus true).

C #, 56 45 byte

Terima kasih, pinkfloydx33 sekarang sudah 45 tahun.

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

Lama 56 byte

Menghasilkan bilangan bulat positif acak lebih besar atau sama dengan 0 dan lebih kecil dari ndan memeriksa apakah lebih kecil dari 1dan mengembalikan hasil perbandingan.

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

Gores , 63 byte

Cobalah online!
Gambar: Kode Scratchblock :

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