DrRacket方案电流-伪随机发电机合同违约

Question

关于以下一行：

(random 9 current-pseudo-random-generator)

我得到了以下错误：

. . random: contract violation
  expected: (or/c (integer-in 1 4294967087) pseudo-random-generator?)
  given: #<procedure:current-pseudo-random-generator>
> 

怎么了？

Answer 1

current-pseudo-random-generator是一个参数，所以您必须使用它

(random 9 (current-pseudo-random-generator))

默认情况下，random将自动使用它，这样您就可以将示例简化为(random 9)。