Utilitaires de listes

[CrazyCat]

tclcopier

set list1 {a b c d e f g h i j k l m n o p q r s t u v w x y z}
set list2 {a z e r t y u i o p}
 
puts "Différence : [ldiff $list1 $list2]"
puts "Intersection : [lintersect $list1 $list2]"

Code :

Différence : b c d f g h j k l m n q s v w x
Intersection : a e i o p r t u y z