Пересечение списков в racket

Question

Я хочу создать функцию, которая принимает в качестве параметров два списка и возвращает #t, если они пересекаются (имеют какие-либо общие элементы).

(define member? 
    (lambda (a lat) 
    (cond 
     ((null? lat) #f) 
     (else (or (equal? (car lat) a) 
       (member? a (cdr lat))))))) 
(define intersect 
    (lambda (set1 set2) 
    (cond 
     ((null? set1)(quote())) 
     ((member? (car set1) set2) 
     (cons (car set1) 
      (intersect (cdr set1) set2))) 


     (else (intersect (cdr set1) set2))))) 

(intersect '(1 2) '(2 4)) ; 

Answer 1

Вы хотите посмотреть на sets in the documentation. С ними пересекаться можно записать:

(define (intersect? lst1 lst2) 
    (let ((set1 (list->set lst1)) 
     (set2 (list->set lst2))) 
    (set=? set1 
      (set-intersect set1 
          set2)))) 

(intersect? '(a b) '(b a d)) ; ==> #t 
(intersect? '(b a d) '(a b)) ; ==> #f 

Answer 2

Если вы хотите пересечение геометрических линий, вы должны смотреть на this file. Он имеет множество геометрических структур и функций, и вы можете увидеть код пересечения here. Даже если ваши строки используют другую структуру, алгоритм здесь должен работать с некоторой настройкой.