Вступ

Вам дається генератор випадкових цілих чисел із наступною реалізацією

• Перше виклик завжди повертає 1.
• Другий виклик повертає випадкове ціле число між 1 і 2.
• Третя виклик повертає випадкове ціле число між 1 і 3.
• П'яте виклик повертає випадкове ціле число між 1 і n включно.

Виходячи з вищенаведеної функції, запишіть генератор випадкових кісток, який є абсолютно випадковим, повертаючи значення між 1 і 6 (включно) з однаковою ймовірністю.

Правила

• Ваша програма / функція повинна призвести до випадкового цілого числа від 1 до 6, включно, в якомусь використаному вигляді, тобто до стандартного виводу або як повернення функції.
• Зростаючий генератор випадкових чисел вище може бути визначений як "вільна" функція у вашій програмі (тобто не враховується до вашого числа символів), або окремий сценарій / програма, яка виконується за необхідності, припускаючи, що стан ( n) є стійким між дзвінками.
• Припустимо, що в одному випадку використання вашої програми ніколи не буде запитуватися більше 1000 рулонів з кістки, і початковий генератор випадкових чисел може бути скинутий до 1кінця 1000 рулонів кісток, щоб уникнути переповнення n.
• Ваша програма може не використовувати будь-яке інше джерело випадкових чисел, крім висхідного випадкового генератора, визначеного вище. Ви, звичайно, можете вимагати декількох випадкових чисел від генератора випадкових чисел для кожного випуску одного колу.
• Це код-гольф, тож переможець - найкоротша відповідь або більшість голосів у разі вирівнювання. Якщо ви можете генерувати 1000 рулонів з кістки, використовуючи менше 1000 генерованих випадкових чисел, надайте собі 10-бальний бонус ефективності .

Приклад

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

Це робить ті самі припущення, що і Гольфскрипт: що кількість кісток є в stdin, і ми перераховуємо рулони з кістки, які повинні вийти.

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

Пояснюється вибухом:

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

Якщо це якось незадовільно, ось довша 21-шарова програма, яку можна викликати, f''щоб генерувати випадкові числа, що містять стан і все.

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

Пітон, 31 чол

Аналогічно скалеру, визначте генератор так:

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

Потім функція повертати рулони кістки:

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

Зателефонуйте D()будь-коли, коли вам потрібно рівномірний довільний рулон.

Scala 23

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

Метод r може бути (приблизно) реалізований так:

var cnt = 0 
val rnd = new util.Random 

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

приблизний тест:

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)

Кожен 6-й дзвінок повинен виробляти рівний розподіл по 6 значень, тому я викидаю 5.

GolfScript (15 символів)

Це передбачає, що кількість рулонів, необхідних, подається на stdin та перелічує багато результатів, які потрібно відключити.

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

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

Демонстрація в Інтернеті

Хоча я міг отримати бонус у 10 балів за використання менше 1000 рулонів для генерування 1000 чисел, це коштувало б мені набагато більше 10 символів. Тривіальний підхід вилучення відповідної ентропії, коли N кратний потужності 2 або 3, стає недостатньою, оскільки кількість доступних результатів mod 3 становить лише 333 + 111 + 37 + 12 + 4 + 1 = 498. Тому необхідно прийняти вибірку та відхилити підхід. Використовуючи такий підхід, ви можете отримати очікувані 2242 запиту від 1000 дзвінків r, але у бухгалтерії baseє додаткові накладні витрати і це дуже довга назва функції.

Пітон 65 63

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

Функція R()- висхідний рандомізатор.

Використання:

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

Пітона, 56

r визначається як:

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

генератор кісток d:

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

використання, наприклад, для 100 рулонів:

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

Mathematica 51

Генератор випадкових чисел, rскидається, встановивши глобальну змінну, nна 1.

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

Код

Не працює для найкоротшого коду ...

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

Використання

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

На 60000 рулонів кістки потрібно 60031 дзвінків h. Tallyпоказана розбивка за числами 1-6.

60031

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

Perl, 22 або 45

Реалізація висхідного генератора випадкових чисел:

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

Створення:

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

Тестування:

n число чіскар
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 рулонних кісток зайняли 60000042 дзвінків на r і 570,432735 секунд

JavaScript (Node.js) , 35 байт

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

Спробуйте в Інтернеті!

x86 опкод, 15 байт

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

GolfScript , 8 байт

f;3f*f(-

Спробуйте в Інтернеті!

Це один раз спливає генератор, а потім позбавляється від результату. Потім він котить f2 і помножує його на 3 (3 або 6), а потім віднімає f3-1 (0, 1, 2), що призводить до (3-2, 3-1, 3-0) або (6-2, 6-1, 6-0) W5.

Гольфскрипт та випадкова функція існували до того, як було поставлено це питання, тому це правове подання.

Це подання лише один раз. Якщо вам потрібно запустити його кілька разів за один дзвінок,

GolfScript , 12 байт

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

Спробуйте в Інтернеті!

Це скидає ваш дзвінок на 0, тож він скидається відповідно. Цей TIO показує 50 випадкових результатів.

C (gcc) , 31 байт

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

Кожні 6 дзвінків, ймовірність генерування кожного числа від 1 до 6 включно дорівнює.

cє #defined як виклик функції, яка генерує ідеальні випадкові числа.

Спробуйте в Інтернеті!