Wprowadzenie

Otrzymujesz losowy generator liczb całkowitych z następującą implementacją

• Pierwsze wywołanie zawsze zwraca 1.
• Drugie wywołanie zwraca losową liczbę całkowitą od 1 do 2.
• Trzecie wywołanie zwraca losową liczbę całkowitą od 1 do 3.
• N-te wywołanie zwraca losową liczbę całkowitą od 1 do n włącznie.

Opierając się na powyższej funkcji, napisz losowy generator kości, który jest całkowicie losowy, zwracając wartość od 1 do 6 (włącznie) z jednakowym prawdopodobieństwem.

Zasady

• Twój program / funkcja powinna dać losową liczbę całkowitą od 1 do 6 włącznie, w pewnej użytecznej formie, tj. Do standardowego wyjścia lub jako wartość zwracaną przez funkcję.
• Generator rosnących liczb losowych powyżej można zdefiniować jako „darmową” funkcję w twoim programie (tj. Nie liczy się do liczby znaków) lub jako osobny skrypt / program, który jest wykonywany w razie potrzeby, zakładając, że stan ( n) jest trwały między połączeniami.
• Załóżmy, że w jednym przypadku użycia twojego programu nigdy nie będzie wymagane więcej niż 1000 rzutów kości, a początkowy generator liczb losowych można zresetować 1na końcu 1000 rzutów kości, aby uniknąć przepełnienia n.
• Twój program nie może używać żadnego innego źródła liczb losowych, z wyjątkiem rosnącego generatora losowego zdefiniowanego powyżej. Możesz oczywiście poprosić o wiele losowych liczb z generatora liczb losowych dla każdego wyniku rzutu pojedynczymi kostkami.
• To jest golf golfowy, więc zwycięzca jest najkrótszą odpowiedzią lub większością głosów w przypadku remisu. Jeśli możesz wygenerować 1000 rzutów kostką przy użyciu mniej niż 1000 losowych liczb, daj sobie 10-punktowy bonus wydajności .

Przykład

./asc-rand
1 # random integer between 1 and 1
./asc-rand
1 # random integer between 1 and 2
./asc-rand
3 # random integer between 1 and 3
./asc-rand
4 # random integer between 1 and 4

# dice-gen generates random dice based on output of asc-rand program.
./dice-gen
3
./dice-gen
6
./dice-gen
5
./dice-gen
1

J - 13 znaków

Przyjmuje to te same założenia co w Golfscript: że liczba kości jest w stdin i podajemy rzuty kostkami, które mają wyjść.

r=:1+?  NB. free random function
r>:i.".1!:1]1

Wyjaśnione przez wybuch:

r=:1+?           NB. r(x) = 1 + a random number between 0 and n-1
           ]1    NB. input file handle
       1!:1      NB. read in a string
     ".          NB. convert to integer
 >:i.            NB. make a list of numbers, from 1 to that integer
r                NB. apply the random function

Jeśli jest to w jakiś sposób niezadowalające, oto dłuższy, 21-znakowy program, który można wywołać w f''celu wygenerowania liczb losowych, zawierających stan i wszystko.

r=:1+?  NB. free random function
c=:0
f=:3 :'r c=:1+c'

Python, 31 znaków

Podobnie jak scleaver, zdefiniuj generator tak:

from random import randint
n=0
def r():
    global n;n+=1
    return randint(1,n)

Następnie funkcja zwracania rzutów kostką:

D=lambda:eval('r(),'*6)[-1]%6+1

Dzwoń, D()gdy potrzebujesz równomiernie losowego rzutu kostką.

Scala 23

def s={r;r;r;r;r;r%6+1}

Metoda r może być (w przybliżeniu) zaimplementowana w następujący sposób:

var cnt = 0 
val rnd = new util.Random 

def r = {
  cnt %= 1000
  cnt += 1
  rnd.nextInt (cnt)
}

trudny test:

scala> (1 to 6).map (i => ((1 to 600) map (_=>s)).filter (_ == i).size)
res26: scala.collection.immutable.IndexedSeq[Int] = Vector(110, 105, 91, 96, 106, 102)

Co szóste połączenie powinno dawać równy rozkład między 6 wartościami, więc wyrzucam 5.

GolfScript (15 znaków)

Zakłada się, że wymagana liczba rolek jest podana na stdin, i podaje liczbę wyników do stdout.

# The free increasing random function
0:N;{N):N rand)}:r;

~{r{;r}5*6%)n}*

Demo online

Chociaż mógłbym uzyskać premię 10 punktów za użycie mniej niż 1000 rzutów do wygenerowania 1000 liczb, kosztowałoby mnie to znacznie więcej niż 10 znaków. Trywialne podejście do wyodrębnienia odpowiedniej entropii, gdy N jest wielokrotnością potęgi 2 lub 3, jest zbyt krótkie, ponieważ liczba dostępnych wyników mod 3 wynosi tylko 333 + 111 + 37 + 12 + 4 + 1 = 498. Dlatego konieczne jest podejmij próbę i odrzuć. Dzięki takiemu podejściu można uzyskać 2242 rzuty z 1000 wywołań r, ale księgowanie basewiąże się z dodatkowymi kosztami i jest bardzo długą nazwą funkcji.

Python 65 63

i=7
while i>5:[R()for x in range(9)];i=int(`R()`[-1])
print i+1

Ta funkcja R()to rosnący randomizator.

Stosowanie:

$ ./rollDice.py
3
$ ./rollDice.py
5

Python, 56

r jest zdefiniowane jako:

from random import randint
n=0
def r(z):
    global n;n+=1
    return randint(1,n)

generator kości d:

import math;d=lambda:math.ceil(6.*r(r(r(r(r(r(0))))))/n)

użycie, np. na 100 rolek:

for i in range(100):print d()

Mathematica 51

Generator liczb losowych rjest resetowany przez ustawienie zmiennej globalnej nna 1.

n = 1; r[c_] := RandomInteger[{1, c}]

Kod

Nie działa dla najkrótszego kodu ...

h := (n++; If[n < 4 \[Or] (y = r@n) > 6 Quotient[n, 6], h, y~Mod~6 + 1])

Stosowanie

t = Table[h, {60000}];
n
SortBy[Tally[t], First]

60000 rzutów kości wymagało 60031 połączeń z h. Tallypokazuje podział według liczb 1-6.

60031

{{1, 9923}, {2, 9966}, {3, 10016}, {4, 10028}, {5, 10009}, {6, 10058}}

Perl, 22 lub 45

Wdrożenie rosnącego generatora liczb losowych:

my $n=0;
sub r { $n++; return 1+int(rand$n); }

Generowanie:

#copy of the Scala solution; short code; uses 6N rolls
sub s{r;r;r;r;r;1+r%6}
#more efficient implementation, uses approximately 6+N+lnN rolls
sub roll { do{$a=r-1}while($a>$n-$n%6);return 1+(1+$a)%6 }

Testowanie:

n numer chisquare
1 10001867 0,348569
2 10004853 2,355161
3 9994395 3,141602
4 10000177 0,003133
5 9999227 0,059753
6 9999481 0,026936
T 60000000 5,935154
60000000 rzutów kostką wymagało 60000042 połączeń na ri 570,432735 sekund

JavaScript (Node.js) , 35 bajtów

//random number generating function
g=1;f=()=>(1+g>1000?g++:5*Math.random())|0

i=0;while(i++<5)f();t=()=>f()%6+1|0

Wypróbuj online!

kod operacji x86, 15 bajtów

f:  mov cx, 6
    call r ; return in AX
    loop $-3
    cwd
    div word [f+1]
    inc dx
    ret ; return in DX

GolfScript , 8 bajtów

f;3f*f(-

Wypróbuj online!

Wyskakuje generator raz, a następnie pozbywa się wyniku. Następnie rzuca f2 i mnoży go przez 3 (3 lub 6), a następnie odejmuje f3-1 (0, 1, 2), co daje (3-2, 3-1, 3-0) lub (6-2, 6-1, 6-0) W5.

Golfscript i funkcja losowa istniały przed opublikowaniem tego pytania, podobnie jak zgłoszenie prawne.

Jest to przesłanie jednorazowe. Jeśli musisz uruchomić go kilka razy w jednym połączeniu,

GolfScript , 12 bajtów

f;3f*f-)0:i;

Wypróbuj online!

Spowoduje to zresetowanie twojego połączenia i do 0, więc odpowiednio zresetuje się. To TIO pokazuje 50 losowych wyników.

C (gcc) , 31 bajtów

f(i){for(i=5;i--;)c;i=~-c%6+1;}

Co 6 połączeń prawdopodobieństwo wygenerowania każdej liczby od 1 do 6 włącznie jest równe.

cjest #defined jako wywołanie funkcji, która generuje idealne liczby losowe.

Wypróbuj online!