Bởi vì không có đủ các thử thách chơi gôn đơn giản :

Tạo một chương trình hoặc hàm không tên tùy chọn, được đưa ra (bằng mọi cách) một số nguyên 1 ≤ N 10000, đưa ra giá trị True của ngôn ngữ của bạn với xác suất giả ngẫu nhiên là 1 / N, nếu không thì sai.

Xin lưu ý rằng yêu cầu đặt tên đã được loại bỏ. Hãy chỉnh sửa câu trả lời và điểm số phù hợp.

Một số ngôn ngữ sử dụng 1 (hoặc -1) và 0 cho Đúng và Sai, điều đó cũng tốt.

Thí dụ:

Ví dụ kiểm tra đầu vào:

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

Tức là đã cho 4; nó trả về True với 25% cơ hội và Sai với 75% cơ hội.

Các mẫu MediaWiki với ParserFifts , 48 byte

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

Bình thường, 3 byte

!OQ

Dùng thử trực tuyến

Đảo ngược đơn giản của sự lựa chọn ngẫu nhiên từ 0 đến đầu vào

Thật thú vị trong Pyth, không thể thực hiện một chức năng thực hiện việc này mà không có $chức năng Pyth được tự động ghi nhớ.

CJam, 5 byte

Hãy nhanh chóng với những thứ này ...

rimr!

Kiểm tra nó ở đây.

Giải trình

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 sử dụng mã thông báo một byte

not(int(Ansrand

Xác định xem phần nguyên của số lần nhập một số ngẫu nhiên trong [0,1) bằng không. Ansrand<1cũng hoạt động.

MATL, 5 byte

Ba phiên bản khác nhau của cái này, tất cả đều dài 5.

iYr1=

trong đó lấy một đầu vào ( i), tạo một số nguyên ngẫu nhiên giữa 1 và số đó ( Yr) và xem nó có bằng 1 ( 1=) không. Ngoài ra,

li/r>

tạo 1 ( l, một cách giải quyết vì có lỗi khi thực hiện 1itại thời điểm này), lấy đầu vào ( i), chia để lấy 1 / N ( /), tạo một số ngẫu nhiên trong khoảng từ 0 đến 1 ( r) và xem nếu ngẫu nhiên số nhỏ hơn 1 / N. Hoặc là,

ir*1<

lấy và nhập ( i) và nhân với một số ngẫu nhiên trong khoảng từ 0 đến 1 ( r*) và xem kết quả có nhỏ hơn 1 ( 1<) không.

Trong Matlab, không phải MATL, bạn có thể thực hiện chức năng ẩn danh này

@(n)n*rand<1

cho 12 byte, được sử dụng bằng cách làm ans(5), ví dụ.

JavaScript ES6, 15 byte

-5 byte nhờ vào Downgoat.

x=>1>new Date%x

Dựa tắt (sử dụng) của này kỹ thuật của câu trả lời.

Julia, 17 16 15 byte

n->2>rand(1:n)

Đây là một hàm tạo ra một số nguyên ngẫu nhiên trong khoảng 1 và nkiểm tra xem nó có nhỏ hơn 2. Sẽ có cơ hội 1 / n cho điều này xảy ra hay không, và do đó, cơ hội quay lại 1 / n true.

Lưu được 1 byte nhờ Thomas Kwa!

Kính hiển vi II , 3 byte

NR!

Đọc một số nguyên n, tạo một số nguyên ngẫu nhiên giữa 0và n-1(bao gồm), sau đó áp dụng một phủ định boolean cho giá trị đó.

Kẹo , 2 byte

Hn

H là viết tắt của Heisen-double

n là viết tắt của không

'N' được truyền với cờ -i làm đầu vào số. Các giá trị còn lại trên ngăn xếp được in trên lối ra.

Mẫu "dài":

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

Seriously, 3 bytes

,JY

0 is falsey and 1 is truthy. Try it online

Explanation:

,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

mã

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

Nó tạo ra một số từ phân phối đồng đều (0 đến 1) và nên đánh giá đúng 1 / n lần.

Japt, 6 byte

1>U*Mr

Hãy thử trực tuyến!

Mrtương đương với JS Math.random. Phần còn lại là khá rõ ràng. Tôi có thể có thể thêm một hàm số tạo ra một số float ngẫu nhiên giữa 0 và số. Khi điều này xảy ra, hai byte sẽ được lưu:

1>Ur    // Doesn't currently work

Phiên bản thay thế:

1>Ð %U

Ðtương đương với new Date(và đối tượng Date, khi được yêu cầu chuyển đổi thành số, trở thành dấu thời gian hiện tại tính bằng mili giây. Do đó, điều này là hoàn toàn ngẫu nhiên, trừ khi nó được chạy nhiều lần trong mỗi ms.

Tuyệt vời , 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

Tôi đã 0trở thành chim ưng và 1thành thật, mặc dù không có lý do thực sự nào cho thấy rằng Marbelous không thực sự có nếu. Nhiều điều đáng tin hơn sẽ là đầu ra {0cho đúng và {>sai. Điều này sẽ trông như thế này:

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

Nhưng tôi không chắc là hợp lệ.

APL, 6 3 byte

+=?

Đây là một hàm đào tạo lấy một số nguyên và trả về 1 hoặc 0 (APL's true / false). Chúng tôi tạo một số nguyên ngẫu nhiên từ 1 đến đầu vào bằng cách sử dụng ?, sau đó kiểm tra xem đầu vào có bằng số nguyên đó không. Điều đó dẫn đến cơ hội 1 / đầu vào là đúng.

Lưu được 3 byte nhờ Thomas Kwa!

PlatyPar , 3 byte

#?!

#?được một số ngẫu nhiên [0,n)trong đó nlà đầu vào. !trả về truenếu số trước nó là 0, nó sẽ trả vềfalse .

Sử dụng nhiều tính năng gần đây đã được triển khai (nhưng thật không may cho tôi không cam kết) trước khi câu hỏi này được hỏi tôi có thể giảm xuống còn 2 với ~! Thử trực tuyến !

Java, 43 byte

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

C, 24 byte

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

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

Đây là một giải pháp không đồng nhất ở tất cả, trong đó tôi mod N tổng số 15876 lượt chọn ngẫu nhiên là 0 hoặc 1:

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

N phải là đầu vào trên ngăn xếp với cờ -v, đầu ra là 0 cho falsey và 1 cho sự thật.

Thay vào đó, một giải pháp thông minh và thống nhất hơn có hiệu quả cho 1/2 ^ N:

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

Đối với đầu vào 3, bạn có 1/8 cơ hội nhận 1 và 7/8 khi nhận 0.

Giải trình :

Tôi nối thêm bao nhiêu xcần thiết trên dòng thứ 4 và bao quanh chúng theo chỉ dẫn để chỉ có hai cách để thoát ra x: hoặc là đầu ra falsey hoặc tiếp theo x. Tôi ngãx đi đúng hướng, người cuối cùng sẽ định tuyến đến đầu ra trung thực.

Ví dụ cho N = 5, không gian mã cuối cùng là như sau:

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

Toán học, 18 16 byte

#RandomReal[]<1&

Giải pháp cơ bản. Số chưa đặt tên Functiontạo một số ngẫu nhiên trong [0, 1), nhân số đó với đối số của nó và kiểm tra xem nó có nhỏ hơn 1 không.

Python, 42 byte

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

Chỉnh sửa : Đã xóa time.time()câu trả lời vì phân phối.

TeaScript , 3 byte

!N×

Hãy thử nó ở đây.

Giải trình

 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

Oczzy Guacamole, 10 byte

^-!_[0]1.|

Giải trình:

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

Mã này tạo Phạm vi từ 0 trở lên nhưng không bao gồm đầu vào *. Sau đó, nó picklà một ngẫu nhiên và !trả về True khi nhận được a 0.

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

Cái này lấy đầu vào *và nhân nó bằng một Num ngẫu nhiên từ 0..^1đó trả về True nếu nó nhỏ hơn 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

Mã số:

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

có lẽ (+ P) là hàm thành công với xác suất P và thất bại với xác suất 1-P

Thí dụ:

p(4).
false

p(4).
false

p(4).
true

PowerShell, 25 byte

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

Các Get-Randomchức năng khi đưa ra một -Mathông số ximum ntrả về một giá trị từ dãy núi này [0,n). Chúng tôi tận dụng điều đó bằng cách trừ 1 từ đầu vào của chúng tôi $args[0], vì vậy chúng tôi được lập chỉ mục chính xác và nhận được một giá trị ngẫu nhiên. Chính xác 1/nlà thời gian, giá trị này sẽ là 0, vì vậy khi chúng ta Boolean - không phải !nó sẽ quay trở lại True. Những lần khác sẽ trở lại False.

J, 3 byte

0=?

Đây là một ngã ba đơn điệu có một đối số ở bên phải. Tương tự như APL ,? tạo ra một số nguyên ngẫu nhiên; tuy nhiên, mảng J là không dựa trên. Vì vậy, chúng tôi so sánh với 0 thay vì đầu vào.

Chồn 0,14 , 7 byte

1nH1=N.

Hãy thử nó ở đây.

Giải trình

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

Đọc ntừ dòng lệnh, như:

$ php probability.php 4

Các đầu ra ( falseđược truyền tới một chuỗi rỗng trong PHP) hoặc 1(trong trường hợp true).

C #, 56 45 byte

Cảm ơn, Pinkfloydx33 bây giờ là 45.

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

56 byte cũ

Tạo số nguyên dương ngẫu nhiên lớn hơn hoặc bằng 0 và nhỏ hơn nvà kiểm tra xem nó nhỏ hơn 1và trả về kết quả so sánh.

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

Cào , 63 byte

Hãy thử trực tuyến!
Ảnh: mã Scratchblocks :

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