Относительно простые числа из списка

Question

В ракетке, как я могу создать процедуру, используя filter и gcd, который делает следующее:

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

Если полученный список включает в себя номера из списка, которые являются относительно простой с единственной?

EDIT: До сих пор я придумал следующий код:

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

Но я полностью потерял и понимаю, что это своего рода беспорядок. Моя общая идея состоит в том, чтобы создать логическую функцию, возвращающую #t, когда (gcd number-from-list number) равна единице, а затем процедура фильтрует каждое число из списка, что приводит к #t.

Answer 1

Просто используйте определение relative primes, и решение естественно вытекает:

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