02/03/2017, 10:04
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
}