方案骰子滚动算法

Question

(define throw-3-die
  (cond
    [(+ 1 random)]
    [(+ random 3)]
    ))

骰子是六面的并且编号为1-3并且具有相同的滚动概率。我试图在没有if语句或任何参数的情况下弄清楚如何做到这一点。

Answer 1

这是一个骨架解决方案：

(define (sum-of-three-dice)
  (define (one-die)
    <???>)
  (+ <???> <???> <???>))

如果你想一想，这真的很简单......