임의의 프로 시저가 체계에서 정확한 정수를 원합니다.

Question

0과 1 사이의 실수가 주어졌습니다. 이것은 niceness-factor입니다. 이 요인은 일종의 확률입니다. 나는 그것이 0.2이면, 1/5의 확률로 어떤 것이 일어날 것임을 의미합니다.

나는 이것에 대한

random 

절차를 사용하려고 노력했다.

(if (eq? 'c (tit-for-tat my-history other-history)) 
    'c 
    (if (= (random (/ 1 niceness-factor)) 0) 'c 'd)) 

은 "임의"절차가 저를 원하지만이 정확한 정수를주고 : 여기 내 코드 조각이다. 이 문제를 어떻게 해결할 수 있습니까? 랜덤과 비슷한 절차가 있습니까? 사전에

감사합니다 ...이 문제를 해결하는

Answer 1

niceness-factor을 정수형 값 (random의 결과와 비슷한 값)으로 변환하면됩니다. 예를 들어 모듈 라켓, 라켓 /베이스 (random k)에서

(if (eq? 'c (tit-for-tat my-history other-history)) 
    'c 
    (if (> (random 100) (* 100 niceness-factor)) 
     'c 
     'd))) 

Answer 2

한 가지 방법은, 사용하는 것입니다 (임의 1). 이제 결과가 < = niceness-factor이면 "무언가"를 수행하고 "무효"를 수행하십시오.

근거 :

포함 (0,1)의 범위의 숫자 < = 0.2를 얻을 확률은 20 %가된다.

Answer 3

는 K-1을 포함하는 0의 정수를 생성한다. (k는 1과 4294967087 사이에 있어야 함) (random은 0과 1 사이의 정확하지 않은 수를 제공합니다. 당신은 당신이 시작한 일에 가장 가까운 것 exact-round에 전화를 추가 시작한 곳에서 당신은 다른 언어 중 하나를 라켓을 사용하고 있지 않습니다 가정 reference guide: random provided by racket and racket/base

는 지원을 라켓 :

(if (eq? 'c (tit-for-tat my-history other-history)) 
    'c 
    (if (= (random (exact-round (/ 1 niceness-factor))) 0) 'c 'd)) 

그러나 나는 발견 다음은 더 간단 할 것입니다 :

(if (eq? 'c (tit-for-tat my-history other-history)) 
    'c 
    (if (<= (random) niceness-factor) 'c 'd))