Ajout d'un élément à une liste dans le schéma

Question

J'utilise R5RS Scheme et je veux juste implémenter une fonction qui retourne l'intersection de deux listes données, mais je ne peux pas le faire parce que je ne peux pas ajouter un élément à une liste . Voici mon code. Comment puis-je le réparer? Je suis vraiment un débutant dans Scheme - c'est mon premier travail en utilisant Scheme.

thx à l'avance ..

(define list3 '()) 
(define (E7 list1 list2) 

     (cond 
      ((null? list1) 
      list3) 
      ((member (car list1) list2) (append list3 (list (car list1)))) 

     ) 
    (cond 
      ((null? list1) 
      list3) 
      ((not(null? list1)) (E7 (cdr list1) list2) 

     ) 

    ) 


) 
(E7 '(4 5) '(3 4)) 

Answer 1

Voici une version récursive qui fait l'intersection au lieu de l'union.

(define (intersect list1 list2) 
    (cond ((null? list1) list1) 
     ((member (car list1) list2) (cons (car list1) (intersect (cdr list1) list2))) 
     (t (intersect (cdr list1) list2)))) 

Answer 2

Voici quelques elisp simpliste:

(defun is (l1 l2) 
    (let ((rtn)) 
    (mapc 
     (lambda (e) 
     (if (member e l1) 
      (push e rtn))) 
     l2) 
    rtn)) 

Ce se comporte comme l'intersection intégrée pour ces tests simples:

(is '(1 2 5) '(1 4 10 5)) => (5 1) 
(intersection '(1 2 5) '(1 4 10 5)) => (5 1) 

(is '(1 4 10 5) '(1 2 5)) => (5 1) 
(intersection '(1 4 10 5) '(1 2 5)) => (5 1) 

Answer 3

Je pense que je vois votre problème. Il y a deux façons d'ajouter un élément à une liste.

La première serait en fait d'ajouter qu'il:

(define (intersect list1 list2) 
    (define newlist list2) 
    (do ((iter1 list1 (cdr iter1))) 
    (not (null? iter1)) 
    (if (not (member (car iter1) newlist)) 
     (set! newlist (cons (car iter1) newlist))))) 

(Vous aurez probablement à chercher la définition de do si vous voulez vraiment l'utiliser.)

Vous pouvez remarquer que c'est plutôt moche. C'est parce que personne ne le fait de cette façon. Au lieu de cela, vous devez réaliser qu'appeler une fonction crée également une nouvelle variable. Essayez ceci:

(define (intersect list1 list2) 
    (cond ((null? list1) list2) 
     ((member (car list1) list2) (intersect (cdr list1) list2)) 
     (else (intersect (cdr list1) (cons (car list1) list2))))) 

Si vous êtes familier avec les algorithmes, vous remarquerez que le code que je viens d'écrire est assez lent, mais il illustre le point: dans chaque cas, vous faites un peu de travail et puis appelez à nouveau votre fonction. Si vous éprouvez des difficultés à voir pourquoi cela fonctionne, exécutez cette fonction plutôt sur votre exemple:

(define (intersect list1 list2) 
    (display list1) (display " ") (display list2) (newline) 
    (cond ((null? list1) list2) 
     ((member (car list1) list2) (intersect (cdr list1) list2)) 
     (else (intersect (cdr list1) (cons (car list1) list2))))) 

Answer 4

Vous êtes mieux à l'aide de set operations SRFI-1.