소개

다음과 같은 구현으로 임의의 정수 생성기가 제공됩니다.

• 첫 번째 호출은 항상 1을 반환합니다.
• 두 번째 호출은 1과 2 사이의 임의의 정수를 반환합니다.
• 세 번째 호출은 1과 3 사이의 임의의 정수를 반환합니다.
• n 번째 호출은 1과 n 사이의 임의의 정수를 리턴합니다.

위의 함수를 기반으로 완벽하게 무작위 인 임의의 주사위 생성기를 작성하여 동일한 확률로 1과 6 사이의 값을 반환합니다.

규칙

• 프로그램 / 함수는 1에서 6 사이의 임의의 정수를 포함하여 사용 가능한 형태로, 즉 표준 출력 또는 함수 반환 값으로 사용해야합니다.
• 위의 오름차순 난수 생성기는 프로그램에서 "자유로운"기능으로 정의되거나 (즉, 문자 수에 포함되지 않음) 상태 ( n)가 지속적 이라고 가정하고 필요에 따라 실행되는 별도의 스크립트 / 프로그램으로 정의 될 수 있습니다. 통화 사이.
• 프로그램의 단일 사용 사례에서 1000 개 이하의 주사위 롤이 요청되지 않고 1000 주사위 롤 1끝에서 초기 난수 생성기를 재설정하여 오버플로를 피할 수 있다고 가정 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 자

이것은 Golfscript와 같은 가정을합니다. 주사위의 개수는 표준 입력이고 나올 주사위를 나열합니다.

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 자

scleaver와 마찬가지로 생성기를 다음과 같이 정의하십시오.

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()균일하게 임의의 주사위 굴림이 필요할 때마다 전화 하십시오.

스칼라 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 개 값에 대해 동일한 분포를 생성해야합니다.

GolfScript (15 자)

이것은 필요한 롤 수가 stdin에 제공되고 stdout에 많은 결과를 나열한다고 가정합니다.

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

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

온라인 데모

1000 개 미만의 롤을 사용하여 1000 개의 숫자를 생성하면 10 포인트 보너스를받을 수 있지만 10자를 초과하는 비용이 발생합니다. N이 2 또는 3의 거듭 제곱의 배수 일 때 적합한 엔트로피를 추출하는 사소한 접근 방식은 가능한 모드 3의 결과 수가 333 + 111 + 37 + 12 + 4 + 1 = 498이기 때문에 매우 짧습니다. 샘플 앤 리 젝트 방법을 사용하십시오. 이 방법을 사용하면에 대한 1000 번의 호출에서 2242 개의 예상 롤을 얻을 수 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()

매스 매 티카 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}}

펄, 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 숫자 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 주사위 롤은 r과 570.432735 초에 60000042 전화를 걸었습니다.

자바 스크립트 (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 opcode, 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;

온라인으로 사용해보십시오!

i 호출을 0으로 재설정하므로 그에 따라 재설정됩니다. 이 TIO는 50 개의 임의 결과를 보여줍니다.

C (gcc) , 31 바이트

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

6 번의 호출마다 1에서 6까지의 모든 숫자가 생성 될 확률은 같습니다.

c되고 #define완벽한 난수를 생성하는 함수 호출로 거라고.

온라인으로 사용해보십시오!