rimuovere una sottolista dalla lista in tcl

Question

Voglio rimuovere una sottolista da una lista in Tcl. So come farlo per la lista principale usando lreplace ma non so come farlo per una sottolista. Per esempio:

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

Ora voglio per rimuovere {4} dalla lista interna { {3 4} {4} }. La lista finale dovrebbe essere:

a { 1 2 { {3 4} } }

Si prega di suggerire come dot sua.

Answer 1

Combina lindex per ottenere la sottolista interna, lreplace per eliminare un elemento della sottolista interna estratto e lset di mettere la sottolista modificato al suo posto.

Ma sinceramente ho la sensazione che ci sia qualcosa che non va nel tuo modello di dati.

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 
} 

Se è necessaria una profondità variabile, questo codice si perde. Hai bisogno di una ricorsione per quello.

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

Come elenco esterno non viene mai visualizzato in tclsh.

Answer 3

Si richiede alcuni trucchi per fare bene:

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] 

Questo funziona perché entrambi lset e lindex può prendere strade, e lo fanno cose sensibili con un percorso vuoto troppo.