如何过滤随机数生成器且不包含0

Question

如何解决random: expects (or/c (integer-in 1 4294967087) pseudo-random-generator?) or a pseudo-random-generator, given 0错误？

(require 2htdp/universe)
(require 2htdp/image)

(define-struct sample(x))
(define BACKGROUND (empty-scene 100 100))
(define CIRCLE (ellipse 10 10 "solid" "red"))

(define (rand d)
  (random d))

(define (randoll d)
  (cond [(even? (rand d))(rand d)]
        [(< (rand d) 6)7]
        [(= (rand d) 0)7]
        [else 7]))

(define (main ws)
  (big-bang ws
      (on-tick randoll)
      (to-draw render)))

(define (render d)
      (place-image CIRCLE (randoll d) 6 BACKGROUND))

  

（主要100）   random：期望（或/ c（整数为1 4294967087的整数）伪随机发生器？）或伪随机发生器，给定0

     

期望它以偶数连续变化的位置，但是这确实发生了

Answer 1

如何将1添加到传递给random的参数中？只要输入为>= 0即可正常工作-您收到的错误只是说明您无法将0作为参数传递给random：

(define (rand d)
  (random (+ d 1)))

顺便说一下，randoll看起来不正确。为什么要测试随机值是否为偶数，只是为了返回另一个我们不知道它是否为偶数的随机值？看来，如果随机值为零，或者在所有其他情况下，您只想返回7。如果符合您的意图，请尝试以下方法：

(define (randoll d)
  (let ([r (rand d)])   ; call `rand` exactly once
    (cond [(zero? r) 7] ; 0 is even, so check this first
          [(even? r) r] ; return `r` only if it's even
          [else 7])))   ; default case

我不确定randoll的期望值范围是多少，但是在我看来，大多数时候它只会返回7。这就是你想要的吗？