lremove

 

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