งาน

ภารกิจคือการเขียนโปรแกรมที่ให้ผลลัพธ์เป็นจำนวนเต็มบวก แต่อย่างอื่นโดยพลการ$x$ (ให้มากกว่า 0 อย่างเคร่งครัด) นี่คือสิ่งที่จับได้: เมื่อแหล่งที่มาถูกทำซ้ำ$N$ครั้ง (รหัสถูกผนวกเข้า / ตัดแบ่ง$N-1$เข้ากับตัวมันเอง) โปรแกรมควรมี$\dfrac{1}{N}$ความน่าจะเป็น Nของเอาต์พุต$N\cdot x$และความน่าจะเป็นที่เหลืออยู่ของ$\dfrac{N-1}{N}$ของเอาต์พุต$x$ไม่เปลี่ยนแปลง

ตัวอย่าง

สมมติว่าแหล่งเริ่มต้นของคุณและผลิตจำนวนเต็มXYZ 3แล้ว:

• สำหรับ$N=2$ : XYZXYZควรแสดงผลลัพธ์$3$ด้วยความน่าจะเป็น$\frac{1}{2}$ (50% ของเวลา) และ$2\cdot 3=6$โดยมีความน่าจะเป็น$\frac{1}{2}$เช่นกัน (50% ของเวลา)

• สำหรับ$N=3$ : XYZXYZXYZควรแสดงผลลัพธ์$3$ด้วยความน่าจะเป็นที่$\frac{2}{3}$ (66.666% ของเวลา) และ$3\cdot 3=9$โดยมีความน่าจะเป็น$\frac{1}{3}$ (33.333% ของเวลา)

• สำหรับ$N=4$ : XYZXYZXYZXYZควรแสดงผลลัพธ์$3$ด้วยความน่าจะเป็น$\frac{3}{4}$ (75% ของเวลา) และ$4\cdot 3=12$ โดยมีความน่าจะเป็น$\frac{1}{4}$ (25% ของเวลา)

และอื่น ๆ ....

กฎระเบียบ

• คุณต้องสร้างโปรแกรมเต็มรูปแบบ ต้องพิมพ์ผลลัพธ์ไปที่ STDOUT

• โปรแกรมของคุณควรในทางทฤษฎีการส่งออกแต่ละค่าเป็นไปได้ด้วยความน่าจะเป็นที่ระบุไว้ข้างต้นแต่การเบี่ยงเบนเล็กน้อยจากนี้เนื่องจากการดำเนินการสุ่มดี ( โดยมีเงื่อนไขว่าการดำเนินการไม่ได้มาจากการกระจายที่แตกต่างกัน - คุณไม่สามารถใช้ กระจายปกติเพื่อบันทึกไบต์ )

• โปรแกรมที่ควร (อีกครั้งในทฤษฎี) การทำงานสำหรับค่าขนาดใหญ่โดยพลการของ$N$แต่ข้อ จำกัด ทางเทคนิคเนื่องจากความแม่นยำจะมีการปรับใหญ่N$N$

• เอาต์พุตจะต้องอยู่ในฐาน 10 (ห้ามส่งออกในฐานอื่นหรือด้วยเครื่องหมายทางวิทยาศาสตร์เป็นสิ่งต้องห้าม) อนุญาตให้ใช้ช่องว่างต่อท้าย / นำหน้าและเลขศูนย์นำหน้า

• แหล่งที่มาเริ่มต้นจะต้องมีความยาวอย่างน้อย 1 ไบต์ คุณไม่สามารถรับบรรทัดใหม่ระหว่างสำเนาของแหล่งที่มาของคุณ โปรแกรมไม่ควรรับอินพุต (หรือมีอินพุตที่ไม่ได้ใช้และว่างเปล่า)

• นี่คือโค้ดกอล์ฟดังนั้นคะแนนของคำตอบคือความยาวของแหล่งที่มา (ต้นฉบับ) เป็นไบต์ด้วยคะแนนที่ต่ำกว่าจะดีกว่า

_{^{หมายเหตุ: ความท้าทายนี้เป็น (มาก) เวอร์ชั่นยากของคนนี้}}

R , 66 35 ไบต์

-29 ไบต์ขอบคุณdigEmAll digEmAll

-2 ไบต์ขอบคุณที่จูเซปเป้

+0->A
x=!0:F
F=F+1
sample(F*x+!x,1)

ลองออนไลน์!

ตรวจสอบการแจกแจงสำหรับ N = 4

->ที่สำคัญคือการกำหนดชี้ไปทางขวา เมื่อรหัสถูกคูณ$N$ครั้งการโทร$N-1$แรกsampleจะถูกกำหนดให้Aและจะพิมพ์เฉพาะการโทรครั้งสุดท้ายเท่านั้น

โซลูชันที่ซับซ้อนและเป็นต้นฉบับมากขึ้น:

R , 66 ไบต์

T->TT
F=F+1
TT=0
`?`=function(x)if(x)sample(c(1,F),1,,c(1,F-1))
?T

ลองออนไลน์!

ลองออนไลน์ (ซ้ำ 3 ครั้ง)!

ใช้สองเทคนิค: 1) เรียกฟังก์ชันหลักที่น่าสนใจ?เพื่อให้เราสามารถเรียกมันได้โดยไม่ต้องจบโปรแกรมด้วยวงเล็บและ 2) ใช้ตัวแปรTและTTด้วยรหัสที่ขึ้นต้นด้วยTและลงท้ายด้วย?Tและจบลงด้วย

Fเป็นตัวนับการวนซ้ำ ?ถูกนิยามใหม่เป็นฟังก์ชันซึ่งรับอาร์กิวเมนต์บูลีน: ถ้าอินพุตของ?คือTRUE(หรือT) จะทำการสุ่มตัวอย่างแบบสุ่มที่ต้องการ ถ้าอินพุตคือFALSE(หรือ0) มันจะไม่ทำอะไรเลย ค่าของTTถูกกำหนดเป็น0เพื่อ?Tทำการสุ่มตัวอย่าง แต่?TTไม่ทำอะไรเลย

เมื่อแหล่งที่มาซ้ำแล้วซ้ำอีกมันจะเป็นดังนี้:

T->TT
F=F+1
TT=0
`?`=function(x)if(x)sample(c(1,F),1,,c(1,F-1))
?TT->TT
F=F+1
TT=0
`?`=function(x)if(x)sample(c(1,F),1,,c(1,F-1))
?T

ดังนั้นเสียงกลางจะ?TTไม่แสดงอะไรเลยนอกจากเสียงเรียกสุดท้ายจะให้?Tผลลัพธ์แบบสุ่ม

Python 3 , 81 79 ไบต์

+0if[]else 1
from random import*
try:n+=1
except:n=1
print([1,n][random()*n<1])

ลองออนไลน์!

-1 ไบต์ขอบคุณ @Nishioka

นี่เป็นโซลูชัน Python 3 หนึ่งที่ไม่สามารถเข้าถึงแหล่งโปรแกรมโดยตรง การทำสิ่งนี้ใน Python 3 มีความท้าทายมากกว่า Python 2 เนื่องจากข้อความสั่งพิมพ์ปกติจบลงด้วยวงเล็บปิดดังนั้นจึงไม่มีทางเลือกมากมายในการเปลี่ยนพฤติกรรมในบล็อกถัดไปของแหล่งข้อมูลเริ่มต้น มันน่าสนใจที่จะเห็นโซลูชั่นที่สร้างสรรค์มากขึ้นใน Python 3

Bash , 31 ไบต์

trap echo\ $[RANDOM%++n?1:n] 0;

ลองออนไลน์!

trap ... 0จะเรียกใช้รหัสที่มีอยู่เมื่อออกจาก traps ซ้ำจะเขียนทับเก่า unquote $[arithmetic expansion]จะทำงานทุกครั้งที่มีการตั้งค่ากับดัก

Zsh สามารถบันทึกหนึ่งไบต์ด้วย<<<:

trap "<<<$[RANDOM%++n?1:n]" 0;

เยลลี่ขนาด 7 ไบต์

‘ɼḷXỊ®*

ลองออนไลน์!

05AB1E , 7 ไบต์

¾Å1¼¾ªΩ

ลองออนไลน์!

Python 3 , 78 76 75 ไบต์

ใช้เคล็ดลับแบบเดียวกับในลิงค์ที่โพสต์นี่คือ Python (ที่มี x = 1)

from random import*;n=len(*open(__file__))//75;print(1+~-n*(random()<1/n))#

ลองออนไลน์!

ขอขอบคุณ Mr. Xcoder -2 ไบต์สำหรับ(n-1)สูตรของเขา~-nซึ่งมีความสำคัญมากกว่า*
-1 ไบต์ขอบคุณ Nishioka

Dyalog APL, 25 24 23 22 21 ไบต์

0{×⍺:1+⍵⋄⎕←1⌈⍵×1=?⍵}1

ลองออนไลน์!

Gaia , 17 15 14 13 ไบต์

Øgl13÷:(1w&+ṛ

ลองออนไลน์!

ฉันสุ่มสังเกตพฤติกรรมของØgเมื่อวานนี้เมื่อมองดูเอกสารซึ่งช่วยได้อย่างมาก

Perl 5, 28 26 ไบต์

-2 ไบต์ขอบคุณ @Grimy

1 if!++$x;say 1<rand$x||$x

TIO

Ruby , 40 ไบต์

1
n||=@x=0
n+=1
puts 1>rand(n)?n:1 if @x

ลองออนไลน์!

ลองออนไลน์ (คัดลอก 3 ครั้ง)!

พอร์ตทับทิมของคำตอบ Pythonนี้

ทับทิมขนาด 38 ไบต์

บันทึก 2 ไบต์โดยการอ่านไฟล์:

n=File.size($0)/38;puts 1>rand(n)?n:1#

ลองออนไลน์!

เวทมนตร์รูน , 31 ไบต์

UwR'10<;$\
I+:'RA0)?/1$;
1
l;
y

ลองออนไลน์!

ใช้โครงสร้างเดียวกันกับคำตอบนี้เพื่อนับจำนวนที่ซ้ำกันของแหล่งที่มา:

แทนที่จะเอาท์พุทตัวเลขที่ n ในรายการเราใช้ค่านั้นเพื่อสร้างตัวเลขแบบสุ่มหากผลลัพธ์ไม่ใช่ 0, พิมพ์ 1 หรือพิมพ์หมายเลขอื่น

Japt , 9 8 ไบต์

(°Tö)ΪT

ทดสอบ | สองเท่า | สามเท่า
ตรวจสอบการแจกจ่าย 10,000 การทำงานหลังจากทำซ้ำ 10 ครั้ง

(°Tö)ΪT
(            :Prevent the operator that follows from being implicitly applied to the first input variable, U
 °T          :Increment T (initially 0) by 1
   ö         :Random element in the range [0,T)
    )        :Closing the parentheses here instead of after the T saves a byte as there would need to be a space here to close the random method
     Î       :Sign - 0 (falsey) or 1 (truthy)
      ªT     :Logical OR with current value of T

ดั้งเดิม, 13 11 10 9 ไบต์

สังเกตพื้นที่ต่อท้าย

NoÎp°T ö 

ทดสอบ | สองเท่า | สามเท่า
ตรวจสอบการแจกจ่าย 10,000 การทำงานหลังจากทำซ้ำ 10 ครั้ง

NoÎp°T ö 
N             :Initially, the (empty) array of inputs
 o            :Replace the last element with
  Î           :  Its sign (always 1)
   p          :Push
    °T        :  T (initially 0) incremented
       ö      :Random element of N

JavaScript ( JavaScript เชลล์ 71 ), 78 ไบต์

(async x=>x)().then(x=>f((''+f).length/78));f=x=>print(1-~x*Math.random()|0)//

ไม่มีลิงก์ tio, spidermonkey บน tio นั้นเก่าเกินไป ...

Firefox (Spidermonkey) fพิจารณาการแสดงความคิดเห็นเป็นส่วนหนึ่งของฟังก์ชั่น ดังนั้นผลลัพธ์(''+f).lengthจะเป็นb+79nตำแหน่งที่ b <78 และ (n + 1) คือเวลาของซอร์สโค้ดซ้ำ

รถม้าชนิดนี้ (? _{^{ฉันไม่แน่ใจฉันอยากให้มันเป็นข้อผิดพลาดของข้อกำหนดจาวาสคริปแทนที่จะเป็นล่าม}} ) ที่คนอื่นส่งต่อ BMO โดยคนอื่นหลังจากคำตอบนี้โพสต์: https://bugzilla.mozilla.org/ show_bug.cgi? (ไม่มีเธรด bmo หรือทวีตที่โพสต์โดยฉัน)

C # (Visual C # Interactive คอมไพเลอร์) , 133 114 112 ไบต์

นี่เป็นครั้งแรก (และหวังว่าครั้งสุดท้าย) ครั้งที่ฉันเคยใช้คำสั่ง preprocessor ของ C #

#if!I
#define I
static int i;
class p{~p()=>Console.Write(new Random().Next(i)<1?i:1);}p s=new p();
#endif
i++;

ลองออนไลน์!

ถ่าน 12 ไบต์

⎚Ｉ⎇‽Ｌ⊞Ｏυω¹Ｌυ

ลองออนไลน์! ตามคำตอบของคำถามที่เชื่อมโยง เอาท์พุทnที่มีความน่าจะเป็นอย่างอื่น¹/ₙ 1คำอธิบาย:

⎚               Remove output from previous iterations
       υ        Initially empty list
        ω       Empty string
     ⊞Ｏ         Push
    Ｌ           Length
   ‽            Random integer [0..length)
  ⎇             Ternary
         ¹      If nonzero then literal 1
          Ｌυ    If zero then the new length
 Ｉ              Cast to string for implicit print