Tcl - Liste von Listen ?

Re(4): Tcl - Liste von Listen ?

kombipaket — Sun, 05 Apr 2009 09:34:00 GMT

Thx!
http://forum.geizhals.at/t633365,5410095.html#5410095

Re(2): Tcl - Liste von Listen ?

kombipaket — Sun, 05 Apr 2009 09:33:12 GMT

Hi !

Danke für deinen Tip! Mit lset habe ich auch schon was gefunden - nur leider bräuchte ich was ohne lset (Soll auf Maschinen rennen, die nur tcl8.3 haben - nicht updatebar).

Ich habe aber inzwischen meinen Lösungsweg geändert...
Wäre also nur noch aus Interesse.

Danke jedenfalls!

Re(3): Tcl - Liste von Listen ?

user86060 — Sun, 05 Apr 2009 00:59:07 GMT

versteh ich das richtig, daß du die ursprüngliche geschachtelte Liste "füllen" willst?
lindex etc. retourniert Kopien, und keine Pointer / Referenzen, eine Liste ist immer noch ein String, es sei denn, du benutzt komplexe Datentypen + entsprechende Methoden, wie sie von manchen Erweiterungen angeboten werden.

oder:

set b  [lreplace  $a 0 0  [ list [ linsert [lindex [lindex $a 0 ] 0] end c] [ linsert [lindex [lindex $a 0 ] 1]  end 130] ] ]

---> {{a b c} {100 200 130}} {{a c} {50 30}}

da müsste man halt noch die Indices entsprechend als Variable einflechten und dann als Function verallgemeinern - edit:

% proc lset2 { a idx el1 el2 } {
set el [lindex $a  $idx]
return  [lreplace  $a $idx $idx  [ list [ linsert [lindex $el 0] end $el1] [ linsert [lindex $el 1]  end $el2] ] ]
}

% lset2 $a 0 c 130
{{a b c} {100 200 130}} {{a c} {50 30}}

%  lset2 $a  1 f 10
{{a b} {100 200}} {{a c f} {50 30 10}}

Re(3): Tcl - Liste von Listen ?

user86060 — Sun, 05 Apr 2009 00:59:07 GMT

Re(2): Tcl - Liste von Listen ?

kombipaket — Sat, 04 Apr 2009 17:17:28 GMT

Hi!

Ich probierte folgendes:

lappy:~$ tclsh
lappy:~$ tclsh
% set a [ list [ list [ list a b ] [ list 100 200 ] ] [ list [ list a c ] [ list 50 30 ] ] ]
{{a b} {100 200}} {{a c} {50 30}}
% lappend lindex [ lindex $a 0 ] 0 ff
{{a b} {100 200}} 0 ff
% puts $a
{{a b} {100 200}} {{a c} {50 30}}
% lappend lindex lindex $a 0 0 gg
{{a b} {100 200}} 0 ff lindex {{{a b} {100 200}} {{a c} {50 30}}} 0 0 gg
% puts $a
{{a b} {100 200}} {{a c} {50 30}}

Scheint beides nicht zu klappen .

Werde wohl auf andere Konstruktionen als Listen von Listen von Listen ausweichen müssen

Re: Tcl - Liste von Listen ?

kracker — Sat, 04 Apr 2009 16:58:41 GMT

Mein tcl ist zwar schon etwas eingerostet, aber

lappend [ lindex [ lindex $a 0 ] 0 ] c

hat ja die argumente lappend varName ?value value value ...?

[lindex [lindex $a 0] 0] -> gibt ja nur den Wert aus. (a b)

probier es mal ohne den [].

notfalls die liste zwischenspeichern, modifizieren und reinschupfen

Re(2): Tcl - Liste von Listen ?

kombipaket — Sat, 04 Apr 2009 07:41:23 GMT

Hi !

Leider hilft concat nicht... Denn concat verändert die originale Liste ja nicht sondern liefert eine zusammengefügte neue Liste zurück ...

Listen von Listen wirken in tcl nicht sonderlich einfach.... Da wirkt Perl echt angenehmer.

Re: Tcl - Liste von Listen ?

mjy@geizhals.at — Thu, 02 Apr 2009 22:37:20 GMT

lappend funktioniert mit einer Variable als erstes Argument.

Du möchtest evtl. das machen:


% concat [ lindex [ lindex $a 0 ] 0 ] c
a b c

Tcl - Liste von Listen ?

kombipaket — Thu, 02 Apr 2009 20:06:12 GMT

Hi !

Ich arbeite mich gerade in Tcl ein und kämpfe mit folgendem:

Ich brauche eine Liste [ mit beliebig viel Elementen ].
In dieser Liste sind Listen mit je 2 Elementen.
Jedes Element dieser Liste besteht aus beliebig vielen Elementen.

Das klappt ja mal fein im Beispiel wie


% set a [ list [ list [ list a b ] [ list 100 200 ] ] [ list [ list a c ] [ list 50 30 ] ] ]
{{a b} {100 200}} {{a c} {50 30}}

Was ich jetzt nicht schaffe:
Ich möchte an die Liste { a b } nun ein "c"-Element dranhängen und an die mit { 100 200 } ein "130"...

Via lindex kann man ja auf die Elemente zugreifen...


% lindex [ lindex $a 0 ] 0
a b

Nun sollte aus meiner Sicht ein


lappend [ lindex [ lindex $a 0 ] 0 ] c

klappen - aber da kommt nur


% lappend [ lindex [ lindex $a 0 ] 0 ] c
c
%  lindex [ lindex $a 0 ] 0
a b

Was mache ich falsch bzw. wie könnte ich dynamisch an so eine Liste etwas anhängen ?