tcl

Question

में सूची से एक उपशीर्षक को हटाएं मैं टीसीएल में एक सूची से एक उपसूची को हटाना चाहता हूं। मुझे पता है कि lreplace का उपयोग करके मुख्य सूची के लिए इसे कैसे करना है, लेकिन मुझे नहीं पता कि एक उपन्यासकार के लिए इसे कैसे किया जाए। उदाहरण के लिए:

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

अब मैं आंतरिक सूची { {3 4} {4} } से {4} निकालना चाहते हैं। अंतिम सूची होना चाहिए:

a { 1 2 { {3 4} } }

कृपया सुझाव है कि उसकी डॉट करने के लिए कैसे।

Answer 1

lindex कम्बाइन आंतरिक sublist प्राप्त करने के लिए, lreplace निकाले आंतरिक sublist का एक तत्व को नष्ट करने और lset जगह में वापस संशोधित sublist डाल करने के लिए।

लेकिन ईमानदारी से मुझे आपके डेटा मॉडल के बारे में कुछ गड़बड़ है।

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 
} 

यदि आपको परिवर्तनीय गहराई की आवश्यकता है तो आप इस कोड के साथ खो गए हैं। इसके लिए आपको रिकर्सन चाहिए।

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

चूंकि बाहरी सूची कभी भी tclsh में प्रदर्शित नहीं होती है।

Answer 3

यह कुछ ही चाल की आवश्यकता है अच्छी तरह से करने के लिए:

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] 

यह काम करता है क्योंकि lset और lindex दोनों रास्तों ले जा सकते हैं, और वे भी एक खाली पथ के साथ समझदार बातें करते हैं।