random - スキーム: ランダム範囲の作成

Question

スキームでは、ランダムを使用して、引数を受け入れず、1 から 10 までの範囲の整数を返すプロシージャを定義する必要があり、if を使用できません。私は失われた=（

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]

これは標準に準拠していないことに注意してください。完全な移植性を得るには、独自の RNG を作成してください。