+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Bouts de Scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=17)
+--- Sujet : Intersection de listes (/showthread.php?tid=1668)
Intersection de listes - CrazyCat - 02/03/2017
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
}