scheme - 方案掷骰子算法

Question

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

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

Answer 1

这是一个骨架解决方案：

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

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