เนื่องจากมีความท้าทายของcode-golfไม่เพียงพอ:

สร้างโปรแกรมหรือฟังก์ชั่นที่ไม่มีชื่อตัวเลือกที่กำหนด (โดยวิธีการใด ๆ ) จำนวนเต็ม 1 output N ≤ 10000 ส่งออกค่า True ของภาษาของคุณด้วยความน่าจะเป็นแบบหลอกเทียมที่ 1 / N, False มิฉะนั้น

โปรดทราบว่าข้อกำหนดสำหรับการตั้งชื่อถูกลบแล้ว รู้สึกอิสระที่จะแก้ไขคำตอบและคะแนนตาม

บางภาษาใช้ 1 (หรือ -1) และ 0 สำหรับจริงและเท็จซึ่งก็ใช้ได้เช่นกัน

ตัวอย่าง:

ตัวอย่างการทดสอบอินพุต:

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

เช่นให้ 4; มันจะคืนความจริงด้วยโอกาส 25% และเท็จพร้อมโอกาส 75%

เทมเพลต MediaWiki ที่มีParserFunctionsขนาด 48 ไบต์

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

Pyth, 3 ไบต์

!OQ

ลองออนไลน์

การผกผันอย่างง่ายของตัวเลือกแบบสุ่มจาก 0 ถึงอินพุต

ด้วยความสนุกสนานใน Pyth มันเป็นไปไม่ได้ที่จะสร้างฟังก์ชั่นที่ทำสิ่งนี้โดยไม่ได้$เพราะฟังก์ชั่น Pyth นั้นจะถูกบันทึกโดยอัตโนมัติ

CJam, 5 ไบต์

ต้องรวดเร็วกับสิ่งเหล่านี้ ...

rimr!

ทดสอบที่นี่

คำอธิบาย

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 ไบต์โดยใช้หนึ่งไบต์โทเค็น

not(int(Ansrand

พิจารณาว่าส่วนจำนวนเต็มของอินพุทคูณด้วยจำนวนสุ่มใน [0,1) เป็นศูนย์หรือไม่ Ansrand<1ยังใช้งานได้

MATL, 5 ไบต์

สามเวอร์ชั่นที่แตกต่างกันของอันนี้ความยาวทั้งหมด 5

iYr1=

ซึ่งรับอินพุต ( i) สร้างจำนวนเต็มแบบสุ่มระหว่าง 1 ถึงตัวเลขนั้น ( Yr) และดูว่ามันเท่ากับ 1 ( 1=) อีกวิธีหนึ่งคือ

li/r>

ทำ 1 ( lเป็นวิธีแก้ปัญหาเนื่องจากมีข้อผิดพลาดกับการทำ1iในขณะนี้) นำเข้า ( i) หารเพื่อรับ 1 / N ( /) ทำตัวเลขสุ่มระหว่าง 0 และ 1 ( r) และดูว่าการสุ่ม จำนวนน้อยกว่า 1 / N หรือ,

ir*1<

take และ input ( i) และคูณด้วยตัวเลขสุ่มระหว่าง 0 ถึง 1 ( r*) และดูว่าผลลัพธ์มีขนาดเล็กกว่า 1 ( 1<) หรือไม่

ใน Matlab ไม่ใช่ MATL คุณสามารถทำหน้าที่ที่ไม่ระบุชื่อได้

@(n)n*rand<1

สำหรับ 12 ไบต์ซึ่งถูกใช้โดยการทำans(5)ตัวอย่างเช่น

JavaScript ES6, 15 ไบต์

-5 ไบต์ขอบคุณ Downgoat

x=>1>new Date%x

ตามออก (ใช้) ของนี้เทคนิคของคำตอบ

Julia, 17 16 15 ไบต์

n->2>rand(1:n)

นี้เป็นฟังก์ชั่นที่สร้างจำนวนเต็มสุ่มระหว่าง 1 nและการทดสอบไม่ว่าจะเป็นน้อยกว่า 2. จะมี 1 / n โอกาสนี้เกิดขึ้นและทำให้ 1 / n trueโอกาสของการกลับมา

บันทึก 1 ไบต์ขอบคุณ Thomas Kwa!

Microscript II , 3 ไบต์

NR!

อ่านจำนวนเต็มnสร้างจำนวนเต็มแบบสุ่มระหว่าง0และn-1(รวม) แล้วใช้การปฏิเสธบูลีนกับค่านั้น

ลูกกวาด 2 ไบต์

Hn

Hย่อมาจากHeisen-double

nหมายถึงไม่

'n' ถูกส่งผ่านด้วยแฟล็ก -i เป็นอินพุตตัวเลข ค่าที่เหลืออยู่บนสแต็กจะถูกพิมพ์เมื่อออก

แบบฟอร์ม "ยาว":

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

อย่างจริงจัง 3 ไบต์

,JY

0เป็นเท็จและ1เป็นความจริง ลองออนไลน์

คำอธิบาย:

,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 ไบต์

รหัส

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

มันสร้างตัวเลขจากการแจกแจงแบบสม่ำเสมอ (0 ถึง 1) และควรประเมินค่าเป็น 1 / n ครั้ง

Japtap, 6 ไบต์

1>U*Mr

ลองออนไลน์!

Mrเทียบเท่ากับ Math.randomJS ที่เหลือค่อนข้างชัดเจน ฉันอาจเพิ่มฟังก์ชันตัวเลขที่สร้างทศนิยมแบบสุ่มระหว่าง 0 ถึงตัวเลข เมื่อสิ่งนี้เกิดขึ้นสองไบต์จะถูกบันทึกไว้:

1>Ur    // Doesn't currently work

รุ่นอื่น:

1>Ð %U

Ðเทียบเท่ากับnew Date(และวัตถุวันที่เมื่อถูกขอให้แปลงเป็นตัวเลขจะกลายเป็นเวลาประทับปัจจุบันในหน่วยมิลลิวินาที ดังนั้นนี่เป็นการสุ่มทั้งหมดยกเว้นว่าจะมีการเรียกใช้หลายครั้งต่อ ms

Marbelous , 21 ไบต์

}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

ฉัน0ถูกหลอกและ1เป็นความจริงแม้ว่าจะไม่มีเหตุผลที่แท้จริงสำหรับการเห็นว่า Marbelous ไม่ได้มีถ้า Marbelousy เพิ่มเติมจะถูกเอาท์พุท{0เป็นจริงและ{>เป็นเท็จ นี่จะเป็นดังนี้:

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

แต่ฉันไม่แน่ใจว่าถูกต้อง

APL, 6 3 ไบต์

+=?

นี่คือฟังก์ชั่นการฝึกอบรมที่ใช้จำนวนเต็มและส่งกลับ 1 หรือ 0 (APL ของจริง / เท็จ) เราสร้างจำนวนเต็มแบบสุ่มจาก 1 ถึงอินพุตโดยใช้?จากนั้นตรวจสอบว่าอินพุตเท่ากับจำนวนเต็มนั้นหรือไม่ ผลลัพธ์นั้นมีโอกาส 1 / อินพุตของจริง

บันทึกแล้ว 3 ไบต์ขอบคุณ Thomas Kwa!

PlatyParขนาด 3 ไบต์

#?!

#?รับตัวเลขสุ่ม[0,n)ที่nมีการป้อนข้อมูล !ผลตอบแทนtrueถ้าจำนวนก่อนที่มันจะเป็นอื่นก็จะส่งกลับ0false

การใช้คุณสมบัติล่าสุดเพิ่มเติมที่มีการใช้งาน (แต่น่าเสียดายที่ฉันไม่ได้มุ่งมั่น) ก่อนที่คำถามจะถูกถามฉันสามารถเอามันลงไป 2 ด้วย~! ลองออนไลน์ !

Java, 43 ไบต์

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

C, 24 ไบต์

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

> <>, 27 + 3 สำหรับ -v = 30 ไบต์

นี่คือวิธีแก้ปัญหาที่ไม่เหมือนกันทั้งหมดที่ฉันดัดแปลง N ผลรวมของการสุ่มเลือก 15876 จาก 0 หรือ 1:

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

N ต้องเป็นอินพุตในสแต็กที่มีแฟล็ก -v เอาต์พุตคือ 0 สำหรับความเท็จและ 1 สำหรับความจริง

โซลูชันที่ชาญฉลาดและสม่ำเสมอมากซึ่งใช้งานได้กับ 1/2 ^ N แทน:

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

สำหรับอินพุต 3 คุณมีโอกาส 1/8 ที่จะได้รับ 1 และ 7/8 จากการได้รับ 0

คำอธิบาย:

ฉันผนวกเท่าxตามความจำเป็นในสาย 4 และล้อมรอบพวกเขากับทิศทางจึงมีเพียงสองวิธีออกจากxทั้งการส่งออก falsey xหรือถัดไป หากทุกอย่างxไปในทิศทางที่ถูกต้องคนสุดท้ายจะไปยังผลลัพธ์ที่เป็นความจริง

ตัวอย่างเช่นสำหรับ N = 5 codespace สุดท้ายมีดังต่อไปนี้:

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

Mathematica, 18 16 ไบต์

#RandomReal[]<1&

โซลูชันพื้นฐาน ชื่อที่ไม่มีชื่อFunctionจะสร้างตัวเลขสุ่มใน [0, 1) คูณด้วยอาร์กิวเมนต์ของมันแล้วตรวจสอบว่ามันยังน้อยกว่า 1 หรือไม่

Python ขนาด 42 ไบต์

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

แก้ไข : ลบtime.time()คำตอบเนื่องจากการแจกจ่าย

TeaScriptขนาด 3 ไบต์

!N×

ลองที่นี่

คำอธิบาย

 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 ไบต์

^-!_[0]1.|

คำอธิบาย:

^-!_[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 ไบต์

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

รหัสนี้สร้างในช่วงตั้งแต่ 0 ขึ้นไป *แต่ไม่รวมถึงการป้อนข้อมูล จากนั้นก็picks หนึ่งที่สุ่มและผลตอบแทนที่แท้จริงเมื่อได้รับ!0

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

นี้จะใช้เวลาการป้อนข้อมูล*และคูณได้โดยการสุ่ม Num จากนั้นส่งกลับจริงถ้ามันมีขนาดเล็กกว่า0..^11

# 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 ไบต์

รหัส:

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

อาจจะ (+ P)เป็นฟังก์ชั่นที่ประสบความสำเร็จกับความน่าจะเป็นPและล้มเหลวด้วยความน่าจะเป็น1-P

ตัวอย่าง:

p(4).
false

p(4).
false

p(4).
true

PowerShell ขนาด 25 ไบต์

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

Get-Randomฟังก์ชั่นเมื่อรับ-Maพารามิเตอร์ ximum ส่งกลับค่าจากช่วงn [0,n)เราใช้ประโยชน์โดยการลบ 1 จากอินพุตของเรา$args[0]ดังนั้นเราจึงจัดทำดัชนีเป็นศูนย์อย่างถูกต้องและรับค่าสุ่ม ได้อย่างแม่นยำ1/nTH ของเวลาที่คุ้มค่านี้จะเป็น0ดังนั้นเมื่อเราบูลีนไม่มันด้วยก็จะกลับ! Trueครั้งอื่น ๆ Falseที่จะกลับมา

J, 3 ไบต์

0=?

นี่คือส้อมเดี่ยวที่รับการโต้แย้งทางด้านขวา ในทำนองเดียวกันกับ APL สร้างจำนวนเต็มแบบสุ่ม อย่างไรก็ตามอาร์เรย์ J เป็นแบบ zero-based เราเปรียบเทียบกับ 0 แทนที่จะเป็นอินพุท

Minkolang 0.14 , 7 ไบต์

1nH1=N.

ลองที่นี่

คำอธิบาย

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 ไบต์

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

อ่านnจากบรรทัดคำสั่งเช่น:

$ php probability.php 4

เอาต์พุต( falseถูกส่งไปยังสตริงว่างใน PHP) หรือ1(ในกรณีของtrue)

C #, 56 45 ไบต์

ต้องขอบคุณ pinkfloydx33 มันเป็น 45 แล้ว

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

เก่า 56 ไบต์

สร้างจำนวนเต็มบวกแบบสุ่มที่ใหญ่กว่าหรือเท่ากับ 0 และเล็กกว่าnและตรวจสอบว่ามันเล็กกว่า1และส่งคืนผลลัพธ์การเปรียบเทียบ

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

ขีดข่วน 63 ไบต์

ลองออนไลน์!
รูปภาพ: รหัสScratchblock :

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