Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Différence entre deux listes
#1
Voici deux moyens d'avoir la différence entre deux liste, ou plus exactement la liste des éléments de la première liste qui n'appartiennent pas à la seconde.

Cette méthode n'est pas optimale du tout, mais fonctionne sur quasi toutes les versions de tcl :
tcl
proc ldiff {list1 list2} {
   foreach suppr $list2 {
      set ind [lsearch $list1 $suppr]
      set list1 [lreplace $list1 $ind $ind]
   }
   return $list1
}



Cette version est l'approche optimale, moins explicite pour le néophyte mais elle soulage l'eggdrop :
tcl
proc ldiff {list1 list2} {
   foreach element $list1 {
      if { !($element in $list2) } {
         lappend diff $element
      }
   }
   return $diff
}


  Répondre
#2
Et une nouvelle version utilisant lmap (tcl8.6 obligatoire):
tcl
proc ldiff {list1 list2 {option -exact}} {
   if {$option ne "-nocase"} { set option -exact }
   return [lmap x $list1 {expr {[lsearch $option $list2 $x] < 0 ? $x : [continue]}}]
}


  Répondre
#3
Très intéressant aussi. Merci pour le partage :)
  Répondre


Sujets apparemment similaires...
Sujet Auteur Réponses Affichages Dernier message
  Intersection de listes CrazyCat 2 1,777 21/10/2020, 20:24
Dernier message: BdS
  Convertir des nombres entre différentes bases numériques MenzAgitat 0 3,630 23/07/2014, 17:57
Dernier message: MenzAgitat
  Combinaison de listes CrazyCat 0 3,136 29/11/2013, 17:26
Dernier message: CrazyCat

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)