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


Intersection de listes
#1
Voici un petit bout de code qui est parfois utile: trouver tous les éléments d'une liste qui sont présents dans une autre liste:
tcl
# Recherche les éléments de list1 contenus dans list2
proc lintersect {list1 list2} {
   foreach element $list1 {
      if { ($element in $list2) } { lappend intersect $element }
   }
   return $intersect
}


  Répondre


Sujets apparemment similaires...
Sujet Auteur Réponses Affichages Dernier message
  Combinaison de listes CrazyCat 0 2,559 29/11/2013, 17:26
Dernier message: CrazyCat
  Différence entre deux listes CrazyCat 0 2,513 07/10/2013, 23:28
Dernier message: CrazyCat

Atteindre :


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