Scheme：创建一个随机范围

Question

在方案中，我必须使用random来定义一个过程，该过程不接受参数并返回范围为1到10的整数，并且我不能使用if。 IM丢失=（

Answer 1

如果你的计划提供了一个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]

被告知，这不符合标准。对于绝对可移植性，请写入y我们自己的RNG。