scheme - 列表中的相对质数

Question

在 racket 中，我如何使用 filter 和 gcd 创建一个程序，它执行以下操作:

(list-of-numbers) number => (list)

结果列表中包含列表中与单个数字互质的数字的位置？

编辑:到目前为止，我提出了以下代码:

(define (coprime? list-of-num n)
 (cond 
  [(empty? list-of-num) empty]
  [else
   (filter (lambda (num)
           (= (gcd (first list-of-num) n) 1)) num))]))

但我完全迷路了，意识到这有点乱。我的一般想法是创建一个 bool 函数，每当 (gcd number-from-list number) 等于 1 时返回 #t，然后该过程从列表中过滤出导致 #t 的每个数字。

Answer 1

只需使用 relative primes 的定义即可，解决方案自然如下:

(define (relative-primes lst num)
  (filter (lambda (e)
            <???>) ; see definition of relative primes
          lst))