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。