TCL & List

TCL punya 2 struktur data, yang pertama adalah list yang kedua adalah
array, pada beberapa bahasa pemrograman kedua sturktur hampir
berkaitan, contohnya pada pemrograman java, list pada pemrograman java
implementasinya adalah vector atau array list yang mana didalam class
vector/array list menggunakan array. Akan tetapi pada tcl, list dan
array adalah 2 hal yang berbeda, kali ini yang akan dibicarakan adalah
list.

Tcl list adalah sebuah struktur dara yang berisi urutan dari
variable2, list mempunyai elemen yang dipisahkan oleh white space.

Membuat List

set x {1 2}
set li [list 1 2 3]

Untuk mengelompokan beberapa variable menjadi sebuah group didalam ist
dapat menggunakan tanda kutip

se l2 [list 1 "a b" 2]

List juga dapat dibuat dengan menggunakan perintah lappend

lappend new 1 2
==> 1 2

lappend new 3 "4 5"
==> 1 2 3 4 5
 

lappend tidak hanya dapat menambah element pada akhir list akan tetapi
juga dapat membuat variabel list baru.

selain lappend terdapat juga perintah concat

set x {4 5 6}
set y {2 3}
set z 1
concat $x $y $z
==> 4 5 6 2 3 1

ada hal lain tentang tanda petik dua (“), tanda petik dua pada kasus2
sederhana mempunyai efek yang sama seperti perintah concat, akan
tetapi concat akan menghilangkan white space pada akhir sebuah
argumen.

Perintah2 untuk List

  • llength
  • Perintah ini digunakan untuk mengetahui panjang dari sebuah list.

    llength {}
    ==> 0
    llength [list 1 2 3]
    ==>3
    
    
  • lindex
  • perintah lindex digunakan untuk mengetahui nilai dari sebuah elemen
    pada list, argumen dari perintah ini adalah posisi dari nilai yang
    ingin diketahui

    set x {1 2 3}
    lindex $x 1
    ==>2
    
  • lrange
  • lrange {1 2 3}0 1
    ==> 1 2
    
  • linsert
  • what can I say about this command? it insert a new element into list

    linsert {1 2}0 new stuff
    --> new stuff 1 2
    
  • lreplace
  • set x [list 1 2 3]
    lreplace $x 1 2 B C
    -> 1 B C
    
  • lsearch
  • Mencari sebuah element di list. Apabila nilai tidak ditemukan maka
    lsearch akan mengembalikan nilai -1.

    lsearch {1 2 3} 1
    -->0
    lsearch {1 2 3} 2
    -->1
    
  • lsort
  • Melakukan sorting dari list.

    lsort [list 3 4 1 2]
    --> 1 2 3 4
    
    
  • split
  • Memecah list.

    set x "123"
    split $x 2
    ==> 1 3
    
    
  • join
  • Menggabungkan list

    join [list 1 2 3] :
    --> 1:2:3
    

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: