Cette commande manque en standard à Tcl. Fort heureusement, le Yoda des Whizzlets [1] a encore été génial :
proc ::lremove {liste quoi} { return [lsearch -all -inline -not -exact $liste $quoi] }
Utilisation :
% set maliste {{A B C} {D E F} {G H I} {J K} L} % lremove $maliste L {A B C} {D E F} {G H I} {J K} % lremove $maliste {D E F} {A B C} {G H I} {J K} L
Voir également :
ldelete, list, lsearch, lreplace, lreverse, lset
RS: En fait, la définition peut être plus simple, comme ça:
interp alias {} lremove {} lsearch -all -inline -not -exact