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))