ความท้าทายนี้ค่อนข้างง่าย:
คุณจะได้รับอาร์เรย์จำนวนเต็มบวก (ไม่รวม 0) และต้องเลือกองค์ประกอบแบบสุ่มจากอาร์เรย์นี้

แต่นี่คือความบิดเบี้ยว:
ความน่าจะเป็นของการเลือกองค์ประกอบขึ้นอยู่กับค่าของจำนวนเต็มซึ่งหมายความว่าเมื่อจำนวนเต็มที่โตขึ้นความน่าจะเป็นของการเลือกองค์ประกอบก็เป็นเช่นกัน!

ตัวอย่าง

[4, 1, 5]คุณจะได้รับอาร์เรย์

ความน่าจะเป็นของการเลือก 4 เท่ากับ4 หารด้วยผลรวมขององค์ประกอบทั้งหมดในอาร์เรย์ในกรณี4 / ( 4 + 1 + 5 ) = 4 / 10 =40%นี้
ความน่าจะเป็นของการเลือก 1 หรือ1 / 1010%

อินพุต

อาร์เรย์ของจำนวนเต็มบวก

เอาท์พุต

stdoutกลับจำนวนเต็มเลือกถ้าใช้วิธีการหรือโดยตรงพิมพ์ไป

กฎระเบียบ

• นี่คือโค้ดกอล์ฟที่สั้นที่สุดในหน่วยไบต์ในภาษาใด ๆ ที่ชนะ
• ช่องโหว่มาตรฐานเป็นสิ่งต้องห้าม

เยลลี่ 3 ไบต์

x`X

ลองออนไลน์!

ดูสิไม่มี Unicode!

คำอธิบาย:

x`X
 `  Make monad from dyad and use same left and right arguments
x   Repeat each element of the left argument (implicit) list its respective number of times in the right argument list
  X Random element

R , 25 ไบต์

function(s)sample(s,1,,s)

ลองออนไลน์!

คำอธิบาย:

function(s){
 sample(x = s, size = 1, replace = FALSE, prob = s)
}

นำตัวอย่างจากsขนาด1โดยไม่ต้องเปลี่ยนด้วยน้ำหนักs; สิ่งเหล่านี้ได้รับการลดความน่าจะเป็น

เพื่อตรวจสอบการกระจายใช้ลิงค์นี้

Pyth , 4 ไบต์

OsmR

ลองที่นี่

บันทึกหนึ่งไบต์ต้องขอบคุณ @Jakube ด้วยวิธีการที่ค่อนข้างผิดปกติ

Pyth , 5 ไบต์

Osm*]

ลองที่นี่!

อย่างไร?

# 1

OsmR - โปรแกรมเต็มรูปแบบ

   R - แผนที่ที่ถูกต้อง ...
  m - ... ใช้แผนที่ สิ่งนี้จะสร้างรายการ [[4,4,4,4], [1], [5,5,5,5,5]]
       - ... เครดิตไปที่ Jakube เพื่อสิ่งนี้!
 s - แบน
O - องค์ประกอบสุ่มของ ^ แสดงผลโดยนัย

# 2

Osm *] - โปรแกรมเต็มรูปแบบ

  m - แผนที่เหนืออินพุต
    ] - องค์ประกอบปัจจุบัน, d, ห่อ; [D]
   * - ซ้ำ d ครั้ง
 s - แบน
O - องค์ประกอบแบบสุ่ม พิมพ์ผลลัพธ์โดยปริยาย

CJam (9 ไบต์)

q~_]ze~mR

สาธิตออนไลน์ นี่เป็นโปรแกรมเต็มรูปแบบที่รับอินพุตในรูปแบบอาร์เรย์ CJam บน stdin และพิมพ์องค์ประกอบที่เลือกไปยัง stdout

การผ่า

q~   e# Read and parse input
_]z  e# Copy and transpose
e~   e# Run-length decode
mR   e# Select random element uniformly

Perl 6 , 20 ไบต์

บันทึกแล้ว 1 ไบต์ขอบคุณ @Brad Gilbert b2gills

{bag(@_ Zxx@_).pick}

ลองออนไลน์!

อาร์กิวเมนต์นี้ใช้เวลา 1 รายการ เราซิปรายการนี้ 2 รายการโดยใช้xxโอเปอเรเตอร์ ดังนั้นด้วยความ@_ Zxx@_ที่เราได้รับรายชื่อในการที่องค์ประกอบxที่จะนำเสนอxครั้ง จากนั้นจะถูกบังคับให้ทำBagซึ่งเป็นคอลเล็กชันที่เก็บวัตถุพร้อมกับจำนวนครั้งที่ปรากฏในคอลเล็กชัน ในที่สุดเราเลือกองค์ประกอบแบบสุ่มจากคอลเล็กชันนี้ด้วยpickซึ่งจะนับจำนวนลงในบัญชีและทำสิ่งที่ถูกต้อง™

Python 3.6 , 44 ไบต์

lambda A:choices(A,A)[0]
from random import*

Yay สำหรับบิวด์อิน อื่น ๆAในchoices(A, A)เป็นweightsอาร์กิวเมนต์ตัวเลือก

ลองออนไลน์!

MATL , 8 6 ไบต์

tY"1Zr

ลองที่MATL Online!

คำอธิบาย

t    % Implicit input. Duplicate
Y"   % Run-length decoding
1Zr  % Randomly take one value with uniform distribution. Implicitly display

Mathematica, 19 ไบต์

RandomChoice[#->#]&

ทับทิม 32 ไบต์

->a{a.flat_map{|x|[x]*x}.sample}

ลองออนไลน์!

Python 3 , 62 ไบต์

lambda k:choice(sum([x*[x]for x in k],[]))
from random import*

ลองออนไลน์!

Java (OpenJDK 8) , 88 87 86 83 ไบต์

a->{int r=0,x=-1;for(int i:a)r-=i;for(r*=Math.random();r<1;)r+=a[++x];return a[x];}

ลองออนไลน์!

J, _{8 7} 8 ไบต์

7 byter ไม่ถูกต้อง ฉันจะกลับไปใช้การแก้ไขก่อนหน้าเมื่อฉันกลับไปที่คอมพิวเตอร์ภายในหนึ่งหรือสองวัน

ลองออนไลน์!

?@+/{#~

:( การเลือกองค์ประกอบแบบสุ่มจากอาร์เรย์มีค่าใช้จ่ายสูง

8 ไบต์

#~{~1?+/

9 ไบต์

(1?+/){#~

คำอธิบาย

?@+/{#~
?        Choose random number in range
  +/     Sum of the array
    {    Select that element from
     #~  The elements duplicated as many times as their value

JavaScript (ES6), 50 ไบต์

a=>a.sort((a,b)=>b-a)[Math.random()**2*a.length|0]

หวังว่ามันชัดเจนว่ามันใช้งานได้อย่างไร แต่ฉันจะอธิบายที่นี่ต่อไป มันเรียงลำดับจำนวนเต็มในลำดับถัดลงมาแล้วเลือกหนึ่งที่สุ่มกับกระจายเบต้า (1 / 2,1)

05AB1E , 9 ไบต์

εD¸.×}˜.R

ลองออนไลน์!

PowerShellขนาด 27 ไบต์

($args[0]|%{,$_*$_})|Random

ลองออนไลน์!

รับอินพุต$args[0]เป็นอาร์เรย์ตัวอักษร ลูปผ่านแต่ละองค์ประกอบ|%{...}และแต่ละย้ำสร้างอาร์เรย์ใหม่,$_ของ$_องค์ประกอบ - เช่นสำหรับการนี้จะสร้างอาร์เรย์4 @(4,4,4,4)องค์ประกอบอาเรย์เหล่านั้นจะถูกไพพ์ไปGet-Randomซึ่งจะดึงองค์ประกอบหนึ่งออกมาพร้อมกับความน่าจะเป็น (หลอก) ที่เท่ากัน เนื่องจากเช่นสำหรับ@(4,1,5)สิ่งนี้ทำให้เรา@(4,4,4,4,1,5,5,5,5,5)ตรงตามข้อกำหนดความน่าจะเป็น

C # (. NET Core) , 93 89 87 76 + 18 = 94 ไบต์

a=>{int i=-1,r=new Random().Next(a.Sum());while(r>=0)r-=a[++i];return a[i];}

ลองออนไลน์!

เพิ่มอีก 18 ไบต์สำหรับ using System.Linq;

กิตติกรรมประกาศ

ช่วยให้ประหยัด 11 ไบต์ด้วย Nevay ซึ่งมีการใช้ตัวเลขแบบสุ่มมีความรัดกุมมากขึ้น (รวมถึงการใช้intแทนdouble)

Degolfed

a=>{
    int i=-1,
    r=new Random().Next(a.Sum());
    while(r>=0)
        r-=a[++i];
    return a[i];
}

คำอธิบาย

รับตัวเลขสุ่มrระหว่าง 0 ถึงผลรวมขององค์ประกอบ rแล้วที่แต่ละซ้ำลบองค์ประกอบปัจจุบันจาก ถ้าrน้อยกว่า0ให้ส่งคืนองค์ประกอบนี้ แนวคิดคือมีส่วนที่ใหญ่กว่าของหมายเลขสุ่มสำหรับตัวเลขที่ใหญ่กว่าในอาร์เรย์

Japtap , 7 ไบต์

ËÆD
c ö

ทดสอบที่นี่

คำอธิบาย

Uการป้อนข้อมูลโดยปริยายของอาร์เรย์

Ë

แผนที่เหนืออาร์เรย์ผ่านแต่ละองค์ประกอบผ่านฟังก์ชั่นที่Dเป็นองค์ประกอบปัจจุบัน

ÆD

สร้างอาร์เรย์ของความยาวและกรอกด้วยDD

c

เรียบ.

ö

รับองค์ประกอบแบบสุ่ม

CJam , 5 ไบต์

lS/mR

ลองออนไลน์! หมายเหตุ: คั่นตัวเลขด้วยช่องว่าง

Perl, 31 ไบต์

@a=map{($_)x$_}@ARGV;$a[rand@a]

นี่ถือว่าอินพุตเป็นอาร์กิวเมนต์บรรทัดคำสั่ง โปรดทราบว่าอาจมีหน่วยความจำไม่เพียงพอ

Perl 5 , 31 + 1 (-a) = 32 ไบต์

@p=map{($_)x$_}@F;say$p[rand@p]

ลองออนไลน์!

GolfScriptขนาด 17 ไบต์

~{.({.}*}%.,rand=

ลองออนไลน์!

ถ่าน 12 ไบต์

Ｆ⪪θ;ＦＩι⊞υι‽υ

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด เนื่องจากถ่านพยายามฉลาดเกินไปฉันต้องใช้อินพุตเซมิโคลอนคั่นด้วยอาเรย์ คำอธิบาย:

  θ             Input variable as string
 ⪪ ;            Split on semicolons
Ｆ               Loop i over each string
     Ｉι         Cast i to integer
    Ｆ           Repeat that many times
       ⊞υι      Push i to (originally empty) list
          ‽υ    Random selection from list
                Implicitly print

Haskell , 87 ไบต์

import System.Random
f l|m<-[x<$[1..x]|x<-l]>>=id=randomRIO(0,length m-1)>>=print.(m!!)

ลองออนไลน์!

Javascript (ES6), 61 54 ไบต์

-7 ไบต์ขอบคุณ @Justin Mariner

a=>a.find(m=>(n-=m)<0,n=Math.random()*eval(a.join`+`))

ตัวอย่างโค้ด

f=
a=>a.find(m=>(n-=m)<0,n=Math.random()*eval(a.join`+`))
console.log(f([4,1,5]))

Haskell , 78 77 ไบต์

import System.Random
f l=randomRIO(0,sum l-1)>>=pure.((l>>= \n->n<$[1..n])!!)

ลองออนไลน์! ตัวอย่างการใช้งานอาจจะเป็นอัตราผลตอบแทนf [1,99]99

คำอธิบาย:

• fรับรายการของจำนวนเต็มและส่งกลับจำนวนเต็มสุ่มเลือกเป็นlIO Int
• l>>= \n->n<$[1..n]สร้างรายการที่มีองค์ประกอบnซ้ำแต่ละnครั้ง
• randomRIO(0,sum l-1) ผลผลิตจำนวนเต็มในช่วงจาก 0 ถึงความยาวของรายการองค์ประกอบที่ซ้ำกันซึ่งเป็นผลรวมขององค์ประกอบทั้งหมดอย่างแน่นอนลบหนึ่งเพื่อหลีกเลี่ยงข้อยกเว้นที่ถูกผูกไว้

โบนัส: 85 เวอร์ชันที่ไม่มีจุดเป็นไบต์

import System.Random
(>>=).randomRIO.(,)0.pred.sum<*>(pure.).(!!).(>>= \n->n<$[1..n])

ลองออนไลน์!

ทุบตี , 51 ไบต์

for n in $@;{ printf $n\\n%.s `seq $n`;}|shuf|sed q

รับอินพุตที่คั่นด้วยช่องว่างหรือขึ้นบรรทัดใหม่คั่นในอาร์กิวเมนต์เดียวหรือหลายอาร์กิวเมนต์

ลองออนไลน์!

ตรวจสอบความถี่สุ่มด้วยกรณีทดสอบที่ซับซ้อนมากขึ้น

Java 8, 127 122 121 ไบต์

import java.util.*;a->{List l=new Stack();for(int i:a)for(int j=i;j-->0;Collections.shuffle(l))l.add(i);return l.get(0);}

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

ใช้วิธีการที่คล้ายกันกับคำตอบ Jelly ของ@ErikTheOutgolferโดยการเพิ่มnเวลาในรายการnจากนั้นเลือกหนึ่งรายการแบบสุ่มจากรายการนั้น

คำอธิบาย:

ลองที่นี่

import java.util.*;        // Required import for List, Stack and Collections
a->{                       // Method with integer-array parameter and integer return-type
  List l=new Stack();      //  Create a List
  for(int i:a)             //  Loop (1) over the input array
    for(int j=i;j-->0;     //   Inner loop (2) from `i` down to 0
        Collections.shuffle(l))
                           //   and shuffle the List randomly after every iteration
      l.add(i);            //    Add `i` that many times to List `l`
                           //   End of inner loop (2) (implicit / single-line body)
                           //  End of loop (1) (implicit / single-line body)
  return l.get(0);         //  And then return the first item of the list
}                          // End of method

Dyalog APLขนาด 8 ไบต์

/⍨⌷⍨1?+/

ลองออนไลน์!

อย่างไร?

• /⍨, nสำเนาของnแต่ละnในการโต้แย้ง
• ⌷⍨ที่ดัชนีของ
• 1?ค่าสุ่มระหว่าง1และ
• +/ผลรวมของการโต้แย้ง

GNU APL 1.2, 26 23 ไบต์; 1.7 21 19 ไบต์

วิธีการแรงบันดาลใจจากเอริก Outgolfer คำตอบของวุ้น พึ่งพา⎕IOการเป็น 0 แทน 1 ซึ่งเป็นค่าเริ่มต้นสำหรับ GNU APL (เรียงลำดับจาก +5 ไบต์⎕IO←0)

-3, -2 ไบต์ขอบคุณ @ Zacharý

∇ รูปแบบฟังก์ชั่น

∇f R
S[?⍴S←∊0 0⍉R∘.⍴R]∇

แบบฟอร์มแลมบ์ดานิรนาม

{S[?⍴S←∊0 0⍉⍵∘.⍴⍵]}

สำหรับคำอธิบายฉันจะใช้⍵เพื่อเป็นตัวแทนของอาร์กิวเมนต์ที่ส่งผ่านไปยังฟังก์ชัน แต่มันจะเทียบเท่ากับRใน∇รูปแบบ

⍵∘.⍴⍵คำนวณผลิตภัณฑ์ด้านนอกในรายการโดยใช้ตัวดำเนินการ reshape ( ⍴) อย่างมีประสิทธิภาพสิ่งนี้จะสร้างตาราง (เช่นตารางการคูณ) แต่แทนที่จะเป็นการคูณมันจะทำซ้ำองค์ประกอบในคอลัมน์ตามจำนวนครั้งที่เท่ากับองค์ประกอบในแถว สำหรับตัวอย่างที่ให้ไว้ในคำถามนี่คือ:

4 4 4 4    1 1 1 1    5 5 5 5   
4          1          5         
4 4 4 4 4  1 1 1 1 1  5 5 5 5 5

0 0⍉⍵∘.⍴⍵สลับเมทริกซ์และส่งกลับแค่เส้นทแยงมุมหลัก นี่ทำให้เราได้ชิ้นส่วนที่แถวและคอลัมน์⍵∘.⍴⍵เหมือนกันนั่นคือเราทำซ้ำจำนวนหลายครั้งเท่ากับค่าของมัน ตัวอย่างเช่นนี่คือ:

4 4 4 4  1  5 5 5 5 5

∊เปลี่ยนอาร์กิวเมนต์เป็นรายการ การใช้ตัวดำเนินการ transpose ( ⍉) เราได้เวกเตอร์ที่มี 3 เวกเตอร์ Enlist ( ∊) เปลี่ยนเป็นเวกเตอร์เดียวที่มีองค์ประกอบทั้งหมด

S←...Sกำหนดเวกเตอร์ใหม่นี้เพื่อเวกเตอร์ ⍴Sทำให้เรามีความยาวของรายการนั้น ?เป็นตัวดำเนินการสุ่มดังนั้น?⍴Sให้ตัวเลขสุ่มระหว่าง 0 ถึงความยาวของรายการ (พิเศษ) (นี่คือเหตุผลว่าทำไมมันจึงขึ้นอยู่กับ⎕IO0 มิฉะนั้นมันจะอยู่ระหว่าง 1 ถึงความยาวรวม) S[...]ส่งคืนองค์ประกอบที่ดัชนีที่กำหนด

MATLAB 30 ไบต์

@(a)datasample(repelem(n,n),1)

สิ่งนี้จะถือว่า MATLAB R2015a หรือใหม่กว่าและมีการติดตั้งกล่องเครื่องมือการเรียนรู้สถิติและเครื่อง

ดูคำอธิบายด้านล่างสำหรับวิธีการrepelemใช้งาน ความแตกต่างระหว่างอันที่สั้นกว่านี้กับอันด้านล่างนี้คือกล่องเครื่องมือ S&ML รวมถึงฟังก์ชั่นdatasampleที่สามารถใช้เพื่อรับองค์ประกอบหนึ่งอย่างหรือมากกว่าจากอาเรย์โดยการสุ่ม (พร้อมความน่าจะเป็นแบบเดียวกัน)input/dispโทร

MATLAB, 49 ไบต์

n=input('');a=repelem(n,n);disp(a(randi(nnz(a))))

รหัสนี้อนุมานว่า MATLAB R2015a หรือใหม่กว่านั้นถูกใช้เช่นเดียวกับเมื่อมีrepelemการแนะนำฟังก์ชั่นrepelemเป็นฟังก์ชั่นที่รับพารามิเตอร์สองตัวอันแรกคืออาร์เรย์ของตัวเลขที่จะทำซ้ำและอันที่สองคืออาร์เรย์จำนวนองค์ประกอบที่สอดคล้องกันที่ควรทำซ้ำ เป็นหลักฟังก์ชั่นทำการถอดรหัสการรันความยาวโดยการให้หมายเลขและความยาวการรัน

โดยการให้อินพุตเดียวกันกับอินพุตทั้งสองของrepelemเราจบลงด้วยอาร์เรย์ซึ่งประกอบด้วยองค์ประกอบ n มากกว่าคูณ n หากเหมาะสม หากคุณให้คุณจะได้รับ[1 2 3] [1 2 2 3 3 3]หากคุณให้คุณจะได้รับ[1 2 4 2] [1 2 2 4 4 4 4 2 2]การทำเช่นนี้หมายความว่าถ้าเราเลือกองค์ประกอบที่มีความน่าrandi(m)จะเป็นแบบเดียวกัน ( ให้จำนวนเต็มแบบสุ่มจาก 1 ถึง m กับความน่าจะเป็นแบบเดียวกัน) แต่ละองค์ประกอบ n มีความน่าจะเป็นสูงกว่าการเลือก n ในตัวอย่างแรกของ[1 2 3], 1จะมีโอกาสที่ 1/6 2จะมีโอกาสที่ 2/6 และ3จะมีโอกาสที่ 3/6

ในฐานะที่เป็นข้อความด้านเนื่องจากrepelemยังไม่มีให้สำหรับ Octave ฉันไม่สามารถให้ลิงค์ TIO ได้ นอกจากนี้เนื่องจากไม่สามารถใช้อ็อคเทฟได้จึงมีบทลงโทษที่รุนแรงinput()และdisp()จำเป็นต้องใช้เนื่องจากไม่สามารถใช้งานฟังก์ชั่นนิรนามได้ หากรองรับระดับแปดrepelemเสียงสามารถใช้สิ่งต่อไปนี้:

@(n)a(randi(nnz(a=repelem(n,n))))

นั่นน่าจะช่วยได้ 16 ไบต์ แต่ก็ไม่เป็นเช่นนั้น