Intersection de listes

[CrazyCat]

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
}

[CrazyCat]

Le pendant de ldiff toujours en utilisant lmap (tcllib 8.6):

tcl

proc lintersect {list1 list2 {option -exact}} {
   if {$option ne "-nocase"} { set option -exact }
   return [lmap x $list1 {expr {[lsearch $option $list2 $x] >= 0 ? $x : [continue]}}]
}

[BdS]

Très utile ce morceau de code pour les scripts de jeu (entre autre). Merci pour le partage :)