Einführung

Sie erhalten einen zufälligen Ganzzahlgenerator mit der folgenden Implementierung

• Der erste Aufruf gibt immer 1 zurück.
• Der zweite Aufruf gibt eine zufällige Ganzzahl zwischen 1 und 2 zurück.
• Der dritte Aufruf gibt eine zufällige Ganzzahl zwischen 1 und 3 zurück.
• Der n-te Aufruf gibt eine zufällige Ganzzahl zwischen 1 und n einschließlich zurück.

Schreiben Sie basierend auf der obigen Funktion einen Zufallswürfelgenerator, der vollkommen zufällig ist und mit gleicher Wahrscheinlichkeit einen Wert zwischen 1 und 6 (einschließlich) zurückgibt.

Regeln

• Ihr Programm / Ihre Funktion sollte zu einer zufälligen Ganzzahl zwischen 1 und 6 führen, einschließlich in einer verwendbaren Form, dh zur Standardausgabe oder als Funktionsrückgabewert.
• Der obige Generator für aufsteigende Zufallszahlen kann als "freie" Funktion in Ihrem Programm definiert werden (dh zählt nicht für Ihre Zeichenanzahl) oder als separates Skript / Programm, das nach Bedarf ausgeführt wird, vorausgesetzt, der Status ( n) ist dauerhaft zwischen Anrufen.
• Angenommen, in einem einzigen Anwendungsfall Ihres Programms werden niemals mehr als 1000 Würfelwürfe angefordert, und der anfängliche Zufallszahlengenerator kann 1auf das Ende von 1000 Würfeln zurückgesetzt werden, um ein Überlaufen von zu vermeiden n.
• Ihr Programm verwendet möglicherweise keine andere Zufallszahlenquelle als den oben definierten aufsteigenden Zufallsgenerator. Sie können natürlich mehrere Zufallszahlen vom Zufallszahlengenerator für jede einzelne Würfelwurfausgabe anfordern.
• Dies ist Code-Golf, daher ist der Gewinner die kürzeste Antwort oder die meisten Stimmen im Falle eines Unentschieden. Wenn Sie 1000 Würfelwürfe mit weniger als 1000 generierten Zufallszahlen generieren können, geben Sie sich einen 10-Punkte-Effizienzbonus .

Beispiel

./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 char

Dies macht die gleichen Annahmen wie bei Golfscript: Die Anzahl der Würfel ist in Standard und wir listen die Würfelwürfe auf, die herauskommen sollen.

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

Erklärt durch Explosion:

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

Wenn das irgendwie unbefriedigend ist, gibt es hier ein längeres Programm mit 21 Zeichen, mit f''dem Zufallszahlen generiert werden können, die einen Status und alles enthalten.

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

Python, 31 Zeichen

Definieren Sie den Generator ähnlich wie beim Scleaver wie folgt:

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

Dann eine Funktion zum Zurückgeben von Würfeln:

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

Rufen Sie D()jederzeit an, wenn Sie einen gleichmäßig zufälligen Würfelwurf benötigen.

Scala 23

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

Die Methode r kann (ca.) folgendermaßen implementiert werden:

var cnt = 0 
val rnd = new util.Random 

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

ein grober 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)

Jeder 6. Aufruf sollte eine gleichmäßige Verteilung über die 6 Werte ergeben, also werfe ich 5 weg.

GolfScript (15 Zeichen)

Dies setzt voraus, dass die Anzahl der erforderlichen Rollen auf stdin angegeben ist, und listet so viele Ergebnisse auf, die stdout liefert.

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

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

Online-Demo

Ich könnte zwar den 10-Punkte-Bonus erhalten, wenn ich weniger als 1000 Würfe verwende, um 1000 Zahlen zu generieren, aber es würde mich weit mehr als 10 Zeichen kosten. Der triviale Ansatz, eine geeignete Entropie zu extrahieren, wenn N ein Vielfaches einer Potenz von 2 oder 3 ist, ist nicht ausreichend, da die Anzahl der verfügbaren Ergebnisse mod 3 nur 333 + 111 + 37 + 12 + 4 + 1 = 498 beträgt Nehmen Sie einen Sample-and-Reject-Ansatz. Mit diesem Ansatz können Sie erwartete 2242 Rollen von 1000 Anrufen bis erhalten r, aber die Buchhaltung verursacht zusätzlichen Aufwand und baseist ein sehr langer Funktionsname.

Python 65 63

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

Die Funktion R()ist der aufsteigende Randomizer.

Verwendungszweck:

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

Python, 56

r ist definiert als:

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

der Würfelgenerator d:

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

Verwendung, zB für 100 Rollen:

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

Mathematica 51

Der Zufallszahlengenerator rwird zurückgesetzt, indem die globale Variable nauf 1 gesetzt wird.

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

Code

Nicht im Rennen um den kürzesten Code ...

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

Verwendungszweck

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

60000 Würfelwürfe erforderten 60031 Aufrufe an h. Tallyzeigt die Aufteilung nach den Nummern 1-6.

60031

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

Perl, 22 oder 45

Implementierung des aufsteigenden Zufallszahlengenerators:

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

Erstellen:

#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 }

Austesten:

n Zahl 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 Würfelwürfe dauerten 60000042 Aufrufe an r und 570,432735 Sekunden

JavaScript (Node.js) , 35 Byte

//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

Probieren Sie es online aus!

x86-Opcode, 15 Bytes

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

GolfScript , 8 Bytes

f;3f*f(-

Probieren Sie es online aus!

Es schaltet den Generator einmal ein und entfernt dann das Ergebnis. Dann würfelt es f2 und multipliziert es mit 3 (3 oder 6), subtrahiert dann f3-1 (0, 1, 2), was zu (3-2, 3-1, 3-0) oder (6-2, führt). 6-1, 6-0) W5.

Golfscript und die Zufallsfunktion existierten, bevor diese Frage gestellt wurde, ebenso wie eine rechtliche Einreichung.

Dies ist die einmalige Übermittlung. Wenn Sie es mehrmals in einem Anruf ausführen müssen,

GolfScript , 12 Bytes

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

Probieren Sie es online aus!

Dadurch wird Ihr i-Aufruf auf 0 zurückgesetzt, sodass er entsprechend zurückgesetzt wird. Diese TIO zeigt 50 zufällige Ergebnisse.

C (gcc) , 31 Bytes

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

Alle 6 Anrufe ist die Wahrscheinlichkeit, dass jede Nummer zwischen 1 und einschließlich 6 generiert wird, gleich.

cist #defined als Aufruf einer Funktion, die die perfekten Zufallszahlen erzeugt.

Probieren Sie es online aus!