To wyzwanie jest raczej proste:
otrzymujesz tablicę dodatnich (nie licząc 0) liczb całkowitych i musisz wybrać losowy element z tej tablicy.

Ale oto zwrot akcji:
prawdopodobieństwo wyboru elementu zależy od wartości liczby całkowitej, co oznacza, że ​​wraz ze wzrostem liczby całkowitej rośnie również prawdopodobieństwo jej wyboru!

Przykład

Dostajesz tablicę [4, 1, 5].

Prawdopodobieństwo wybrania 4 jest równe 4 podzielone przez sumę wszystkich elementów w tablicy , w tym przypadku 4 / ( 4 + 1 + 5 ) = 4 / 10 =40%.
Prawdopodobieństwo wyboru 1 to 1 / 10lub 10%.

Wejście

Tablica dodatnich liczb całkowitych.

Wynik

Zwróć wybraną liczbę całkowitą, jeśli używasz metody, lub wydrukuj ją bezpośrednio stdout.

Zasady

• To jest golf golfowy, więc wygrywa najkrótszy kod w bajtach w dowolnym języku.
• Standardowe luki są zabronione.

Galaretka , 3 bajty

x`X

Wypróbuj online!

Spójrz, nie ma Unicode!

Wyjaśnienie:

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 bajtów

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

Wypróbuj online!

Wyjaśnienie:

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

Pobiera próbkę swielkości 1bez wymiany, z odważnikami s; są one przeskalowane do prawdopodobieństw.

Aby zweryfikować dystrybucję, użyj tego linku .

Pyth , 4 bajty

OsmR

Wypróbuj tutaj.

Oszczędność jednego bajtu dzięki @Jakube, z dość nietypowym podejściem.

Pyth , 5 bajtów

Osm*]

Wypróbuj tutaj!

W jaki sposób?

# 1

OsmR - Pełny program.

   R - Prawa mapa ...
  m - ... Korzystanie z mapy. To zasadniczo tworzy listę [[4,4,4,4], [1], [5,5,5,5,5]].
       - ... Podziękowania dla Jakube za to!
 s - Spłaszcz.
O - Losowy element ^. Wyświetlaj niejawnie.

# 2

Osm *] - Pełny program.

  m - Mapa nad wejściem.
    ] - Bieżący element, d, zawinięty; [re].
   * - Powtarzane d razy.
 s - Spłaszcz.
O - losowy element. Wydrukuj wynik niejawnie.

CJam (9 bajtów)

q~_]ze~mR

Demo online . Jest to pełny program, który pobiera dane wejściowe w formacie tablicy CJam na standardowe wejście i drukuje wybrany element na standardowe wyjście.

Sekcja

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 bajtów

Oszczędność 1 bajtu dzięki @Brad Gilbert b2gills.

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

Wypróbuj online!

To wymaga 1 argumentu listy. Spakowujemy 2 kopie tej listy za pomocą xxoperatora. Tak więc @_ Zxx@_, otrzymujemy listę, w której element xjest prezentowany xrazy. Następnie jest przymuszany do Bag, która jest kolekcją, która przechowuje obiekty wraz z tym, ile razy pojawiają się w kolekcji. Na koniec wybieramy losowy element z tej kolekcji pick, który bierze pod uwagę liczby i robi The Right Thing ™.

Python 3.6 , 44 bajty

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

Yay dla wbudowanych. Drugi Aw choices(A, A)to opcjonalny weightsargument.

Wypróbuj online!

MATL , 8 6 bajtów

tY"1Zr

Wypróbuj w MATL Online!

Wyjaśnienie

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

Mathematica, 19 bajtów

RandomChoice[#->#]&

Rubinowy , 32 bajty

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

Wypróbuj online!

Python 3 , 62 bajty

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

Wypróbuj online!

Java (OpenJDK 8) , 88 87 86 83 bajtów

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

Wypróbuj online!

J, _{8 7} 8 bajtów

7 bajtów jest nieprawidłowy; Przywrócę to do poprzedniej edycji, gdy wrócę do komputera za dzień lub dwa.

Wypróbuj online!

?@+/{#~

:( wybranie losowych elementów z tablicy jest kosztowne.

8 bajtów

#~{~1?+/

9 bajtów

(1?+/){#~

Wyjaśnienie

?@+/{#~
?        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 bajtów

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

Mam nadzieję, że to oczywiste, jak to działa, ale i tak to wyjaśnię. Sortuje liczby całkowite w kolejności malejącej, a następnie wybiera jedną losowo z rozproszeniem beta (1 / 2,1) .

05AB1E , 9 bajtów

εD¸.×}˜.R

Wypróbuj online!

PowerShell , 27 bajtów

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

Wypróbuj online!

Pobiera dane wejściowe $args[0] jako tablicę literalną. Pętle przez każdy element |%{...}, a w każdej iteracji tworzy się nową tablicę ,$_z $_pierwiastków - na przykład dla 4tego utworzy tablicę @(4,4,4,4). Te elementy tablicy są następnie wpompowywane w rurę, z Get-Randomktórej wydobywa się jeden z elementów z (pseudo) równym prawdopodobieństwem. Ponieważ np. @(4,1,5)Daje nam @(4,4,4,4,1,5,5,5,5,5)to spełnienie wymagań prawdopodobieństwa.

C # (.NET Core) , 93 89 87 76 + 18 = 94 bajtów

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

Wypróbuj online!

Dodatkowe 18 bajtów dla using System.Linq;

Podziękowanie

11 bajtów zaoszczędzonych dzięki Nevayowi, którego implementacja liczb losowych była o wiele bardziej zwięzła (a także być int zamiast adouble ).

Degolfed

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

Wyjaśnienie

Uzyskaj losową liczbę rod 0 do sumy elementów. Następnie przy każdej iteracji odejmij bieżący element r. Jeśli rjest mniejsze niż 0, zwróć ten element. Chodzi o to, że są większe części liczby losowej dla większych liczb w tablicy.

Japt , 7 bajtów

ËÆD
c ö

Sprawdź to tutaj

Wyjaśnienie

Domniemane wejście tablicy U.

Ë

Odwzoruj tablicę, przepuszczając każdy element przez funkcję, gdzie Djest bieżący element.

ÆD

Wygeneruj tablicę długości Di wypełnij ją D.

c

Spłaszczyć.

ö

Zdobądź losowy element.

CJam , 5 bajtów

lS/mR

Wypróbuj online! Uwaga: oddziel liczby od spacji

Perl, 31 bajtów

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

Zakłada się, że dane wejściowe są argumentami wiersza poleceń. Pamiętaj, że może zabraknąć pamięci, jeśli liczby są duże.

Perl 5 , 31 + 1 (-a) = 32 bajty

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

Wypróbuj online!

GolfScript , 17 bajtów

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

Wypróbuj online!

Węgiel drzewny , 12 bajtów

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

Wypróbuj online! Link jest do pełnej wersji kodu. Ponieważ Charcoal próbuje być zbyt sprytny, muszę użyć danych rozdzielanych średnikami dla tablicy. Wyjaśnienie:

  θ             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 bajtów

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

Wypróbuj online!

JavaScript (ES6), 61 54 bajtów

-7 bajtów dzięki @Justin Mariner

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

Przykładowy fragment kodu

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

Haskell , 78 77 bajtów

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

Wypróbuj online! Przykład użycia: f [1,99]prawdopodobnie daje 99.

Wyjaśnienie:

• f pobiera listę liczb całkowitych l i zwraca losowo wybraną liczbę całkowitą jakoIO Int .
• l>>= \n->n<$[1..n]konstruuje listę z każdym npowtórzonym elementemn razy.
• randomRIO(0,sum l-1) zwraca liczbę całkowitą z zakresu od 0 do długości listy powtarzanych elementów, która jest dokładnie sumą wszystkich elementów, minus jeden, aby uniknąć wyjątku spoza zakresu.

Bonus: 85-bajtowa wersja bez punktów

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

Wypróbuj online!

Bash , 51 bajtów

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

Pobiera dane wejściowe rozdzielone spacją lub znakiem nowej linii w jednym argumencie lub wielu argumentach.

Wypróbuj online!

Sprawdź losowe częstotliwości w bardziej skomplikowanym przypadku testowym.

Java 8, 127 122 121 bajtów

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 bajt dzięki @Nevay .

Stosuje podobne podejście, jak odpowiedź Jelly @ErikTheOutgolfer , dodając nrazy pozycję ndo listy, a następnie wybierz jedną losowo z tej listy.

Wyjaśnienie:

Wypróbuj tutaj.

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 bajtów

/⍨⌷⍨1?+/

Wypróbuj online!

W jaki sposób?

• /⍨, nkopie nkażdego nw argumencie.
• ⌷⍨, według indeksu
• 1?, losowa wartość pomiędzy 1i
• +/, suma argumentu

GNU APL 1.2, 26 23 bajtów; 1.7 21 19 bajtów

Podejście zainspirowane odpowiedzią Erika the Outgolfer's Jelly . Polega na ⎕IObyciu 0 zamiast 1, co jest wartością domyślną dla GNU APL (rodzaj +5 bajtów dla ⎕IO←0).

-3, -2 bajty dzięki @ Zacharý

∇ formularz funkcyjny

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

Anonimowa forma lambda

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

Dla wyjaśnienia użyję ⍵do przedstawienia argumentu przekazanego do funkcji, ale jest ona równoważna Rz ∇formą.

⍵∘.⍴⍵oblicza zewnętrzny produkt z listy za pomocą ⍴operatora reshape ( ). W efekcie tworzy to tabelę (jak tabliczka mnożenia), ale zamiast mnożenia powtarza element w kolumnie kilka razy równy elementowi w wierszu. Dla przykładu podanego w pytaniu jest to:

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⍉⍵∘.⍴⍵transponuje macierz i zwraca tylko główną przekątną. To daje nam tylko te części, w których wiersz i kolumna ⍵∘.⍴⍵były takie same, tzn. Powtórzyliśmy liczbę kilka razy równą jej wartości. Na przykład jest to:

4 4 4 4  1  5 5 5 5 5

∊zamienia argument w listę. Za pomocą ⍉operatora transpose ( ) otrzymaliśmy wektor zawierający 3 wektory. Enlist ( ∊) zamienia go w pojedynczy wektor zawierający wszystkie elementy.

S←...przypisuje ten nowy wektor do wektora S. ⍴Sdaje nam długość tej listy. ?jest operatorem losowym, więc ?⍴Sdaje nam losową liczbę od 0 do długości listy (wyłączne) (dlatego opiera się na ⎕IObyciu 0; w przeciwnym razie jest między 1 a długością włącznie). S[...]zwraca element o podanym indeksie.

MATLAB, 30 bytes

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

This assumes MATLAB R2015a or newer and with the Statistics & Machine Learning toolbox installed.

See the explanation below for how repelem is used. The difference between this shorter one and the one below is that the S&ML toolbox includes the function datasample which can be used to take one or more elements from an array at random (with uniform probability) which allows an anonymous function to be used, stripping away the input/disp calls.

MATLAB, 49 bytes

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

This code assumes that MATLAB R2015a or newer is used as that is when the repelem function was introduced. repelem is a function which takes two parameters, the first is an array of numbers to be replicated, and the second is an array of how many times the corresponding element should be replicated. Essentially the function performs run-length decoding by providing the number and the run-length.

By providing the same input to both inputs of repelem we end up with an array which consists of n times more of element n if that makes sense. If you provided [1 2 3] you would get [1 2 2 3 3 3]. If you provided [1 2 4 2] you would get [1 2 2 4 4 4 4 2 2]. By doing this it means that if we select an element with uniform probability (randi(m) gives a random integer from 1 to m with uniform probability), each element n has an n times higher probability of being selected. In the first example of [1 2 3], 1 would have a 1/6 chance, 2 would have a 2/6 chance and 3 would have a 3/6 chance.

As a side note, because repelem is not available yet for Octave, I can't give a TIO link. Additionally because Octave can't be used there is a big character penalty as input() and disp() need to be used as an anonymous function is not possible. If Octave supported repelem, the following could be used:

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

That would have saved 16 bytes, but it was not to be.