eliminar una sublista de la lista en tcl

Question

Quiero eliminar una sublista de una lista en Tcl. Sé cómo hacerlo para la lista principal usando lreplace pero no sé cómo hacerlo para una sublista. Por ejemplo:

set a { 1 2 { {3 4} { 4 } } } 

Ahora desea eliminar de la lista interna {4}{ {3 4} {4} }. La lista final debe ser:

a { 1 2 { {3 4} } }

Para sugerir cómo dot suyo.

Answer 1

Combinar lindex para obtener la lista secundaria interna, lreplace eliminar un elemento de la lista secundaria interna extraído y lset para poner la lista secundaria modificada en su lugar.

Pero, sinceramente, tengo la sensación de que algo anda mal con su modelo de datos.

Answer 2

proc retlist {a} { 
    set nl "" 
    foreach i $a { 
     if {[llength $i] > 1} { 
      set nl2 "" 
      foreach i2 $i { 
       if {[llength $i2] > 1} { lappend nl2 $i2 } 
      } 
      lappend nl $nl2 
     } else { 
      lappend nl $i 
     } 
    } 
    return $nl 
} 

Si necesita profundidades variables, este código lo pierde. Necesitas recursividad para eso.

% set a {1 2 {{3 4} {5}}} 
1 2 {{3 4} {5}} 
% retlist $a 
1 2 {{3 4}} 

Como la lista externa nunca se muestra en tclsh.

Answer 3

Se requiere algunos trucos para hacer muy bien:

proc lremove {theList args} { 
    # Special case for no arguments 
    if {[llength $args] == 0} { 
     return {} 
    } 
    # General case 
    set path [lrange $args 0 end-1] 
    set idx [lindex $args end] 
    lset theList $path [lreplace [lindex $theList $path] $idx $idx] 
} 

set a [lremove $a 2 1] 

Esto funciona porque ambos lset y lindex puede tomar caminos, y hacen las cosas sensibles con una ruta de vacío también.