scheme - 顯示所有具有最大公約數的元素對1

Question

我開始使用algortihm進行組合，但是當m在遞歸中變爲0時，第一個y將是'（（）），所以程序將顯示只有（）會重複4 *列表時間的大小。

(define (pairs-GCD L) 
(define (comb m lst) 
    (cond ((= m 0) '(())) 
    ((null? lst) '()) 
    (else (append (map (lambda (y) (cond (equal? (GCD(car lst) y) 1) (cons (car lst) y))) (comb (- m 1) (cdr lst))) (comb m (cdr lst)))))) 
(comb 2 L) 

） 編輯：校正後的輸出 輸入： '（2 5 3 6 11 15） 輸出：'（（2 5）（2 3）（2 11）（2 15）（5 3） （5 6）（5 11）（6 11）（3 11）（6 11）（11 15））

Answer 1

如果我們使用Racket的內置程序 - 我們可以輕鬆生成所有2-元素組合，針對給定條件測試它們並輸出具有正確對的列表：

(define (pairs-gcd lst) 
    (for/list ([pair (in-combinations lst 2)] 
      #:when (= (apply gcd pair) 1)) 
    pair)) 

例如：

(pairs-gcd '(2 5 3 6 11 15)) 
=> '((2 5) (2 3) (5 3) (5 6) (2 11) (5 11) (3 11) (6 11) (2 15) (11 15))