如何在Scheme中的範圍內生成唯一的整數列表。 （DrRacket）

Question

我一直有一些麻煩，試圖定義一個函數，該函數生成範圍[0，y）內隨機整數長度x的列表。這裏是產生隨機整數列表的代碼：

(define (random-list range list-length) 
    (cond 
    [(zero? length) empty] 
    [else (cons (random range) (random-list range (sub1 list-length)))])) 

麻煩的是，如果我嘗試把這個代碼爲一個從0生成的唯一的隨機整數的列表至（範圍 - 1）長度的（列表長度）使用遞歸。我似乎無法找到一種方法來檢查生成的隨機數是否已經在正在創建的列表中。此代碼將永久運行：

(define (random-list range list-length) 
    (cond 
    [(zero? list-length) empty] 
    [else 
    (cond 
     [(member? (random range) (random-list range list-length)) 
     (random-list range list-length)] 
     [else 
     (random-list range (sub1 list-length))])])) 

任何想法？ （我正在使用DrRacket，開始學生）

Answer 1

第一個過程有錯誤，您應該檢查list-length是否爲零，而不是length。關於第二個程序，檢查一個元素是否已經在列表中是錯誤的，當你檢查元素是否已經存在，然後再次調用時，你可以調用random-list，但是你永遠不會保存生成的值。在每種情況下生成的數字可能會有所不同，並且無論如何，您並不是結果。必須使用完全不同的方法。

; create a helper that accumulates the generated elements 
(define (random-list-h acc range len) 
    (cond [(zero? len) acc] ; if we're done, return accumulator 
     [else 
     (let ((num (random range))) ; generate and save a random number 
      (cond [(member? num acc) ; if it's already in the accumulator 
        (random-list-h acc range len)] ; then ignore it 
       [else ; otherwise add to accumulator and advance recursion 
        (random-list-h (cons num acc) range (sub1 len))]))])) 

(define (random-list range list-length) 
    ; call helper with initial empty accumulator 
    (random-list-h '() range list-length)) 

它會工作爲標榜：

(random-list 10 5) 
=> '(5 3 7 9 6) ; just an example