Égalité de deux listes [Résolu]

[Debinfo75]

Bonjour,

je me heurte à une question où il s'agit d'écrire une fonction qui vérifie l'égalité de 2 listes[String] de longueur supposée égales.

Je vois bien la chose au moyen d'un prédicat, mais il faut une fonction, et je bloque à ce niveau.

Je vous remercie par avance de votre aide.

Cordialement.

[Trap D]

Il faut envisager plusieurs cas (qui en Scheme peuvent etre énumérer avec un cond.

1. les deux listes sont vides
2. une des deux listes est vide et pas l'autre
3. les premiers elements de chaque liste sont différents
4. dernière possibilité.

Ne pas oublier qu'en Scheme une liste se décrit à l'aide du car et du cdr et que la récursion est utilisée tout le temps.

[Debinfo75]

Bonsoir Trap D,

merci infiniment de votre réponse.
Je veille tard et suis arrivé à ce résultat qui ne fonctionne pas. Cela bloque dès qu'un caractère non numérique est compris dans la liste ou bien au niveau du 1er caractère numérique. Je vous livre ma production et vous remercie par avance de votre aide.

;

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 egalListes : LISTE[String] * LISTE[String] -> LISTE[String] * bool
;(egalListes L1 L2) vérifie l'égalité de 2 listes contenant des données de
;type String, sans utiliser de fonctionnelles.
;HYPOTHESE : les listes sont de longueur égales.
(define (egalListes L M)					
  (cond	((null? L) #f )
        ((null? M) #f  )
        ((not (= (car L) (car M))) #f)
        (else (cons (car L) (egalListes (cdr L) M)) )	
        ))


(egalListes (1 2 3 4) (1 2 3 4))

. procedure application: expected procedure, given: 1; arguments were: 2 3 4
>

[Debinfo75]

J'ai une idée dans ce sens avant que de me coucher. Je testerai demain matin.

Code :

1
2
3
4
let (length (L1) n)
(if not(= (list-ref (L1) 0) (list-ref (L2) 0)
   ()
   (cons (list-ref (L1) 0) (egalListes (cdr L1) (cdr L2)))

Cordialement.

[debmaths]

Je suis débutant en Scheme mais il me semble que tu ne suis pas les spécifications. Les listes ne sont pas vides et sont de même longueur donc pas d'erreur si longueurs différentes d'autre part il me semble que les valeurs étant string il faut que tes valeurs soient encadrées de ". Donc au lieu d'employer = il faut employer string=? J'espère ne pas te mettre sur une fausse voie

Code :

1
2
3
4
5
6
7
8
9
10
;;; egaliteListes: compare 2 listes non vides ayant de même longueur
;;; liste (string) * liste (string) ---> booléen
;;; pair? et string=? ne sont pas dans les arguments de egalitéListes
(define (egaliteListes L1 L2)
  (if (pair? L1)
      (if (string=? (car L1) (car L2)) 
      (egaliteListes (cdr L1) (cdr L2))
      #f)
  #t)) 
(egaliteListes (list "1" "2" "3" "4") (list "1" "2" "3" "4"))

[Debinfo75]

Merci à Trap D et Debmaths.

Ma confusion venait du fait de la méconnaissance du type String et de ses spécifications.
Parfois on va plus vite que la musique.
Cordialement.