方案：创建随机范围

Question

在方案中，我必须使用random来定义一个不接受任何参数的过程，并返回一个1到10范围内的整数，包括但不能使用if。我失去了=（

Answer 1

如果您的Scheme提供random功能，则需要

(define (1-10-rand)
    (+ 1 (random 10)))

或

(define (1-10-rand)
    (floor (* 10 (random))))

取决于您是(random n) --> integer in [0, n-1])还是(random) -> float in [0,1]

请注意，这不符合标准。对于绝对可移植性，请编写自己的RNG。