1
2
set value [expr {int(1 + 2 * (13) - 1)}]
puts $value

1
2
set value [expr {int(1 + rand() * (13) - 1)}]
puts $value

1
2
set values [list Ace King Queen Jack 10 9 8 7 6 5 4 3 2]
puts [llength $values]

1
2
set india {0 1 2 3}
puts [llength $india]

1
2
set india {0 1 2 3}
puts llength $india

1
2
set india 0 1 2 3
puts llength $india

1
2
3
4
5
6
7
8
9
proc Random {list} {
set index [expr {int(1 + rand() * ([llength $list]) - 1)}] 
return $index
}
set values [list Ace King Queen Jack 10 9 8 7 6 5 4 3 2]
set suits [list Clubs Diamonds Hearts Spades]
lappend cards $values $suits
# "Deal" a draw poker hand
for {set i 1} {$i <= 5} {incr i} {
 ...

1
2
3
4
5
6
7
8
9
proc Random {list} {
set index [expr {int(1 + rand() * ([llength $list]) - 1)}] return $index
}
set values [list Ace King Queen Jack 10 9 8 7 6 5 4 3 2]
set suits [list Clubs Diamonds Hearts Spades]
lappend cards $values $suits
# "Deal" a draw poker hand
for {set i 1} {$i <= 5} {incr i} {
puts "Card $i: [lindex $cards 0 [Random $values]] of\
 ...

1
2
3
proc Random {list} {
set index [expr {int(1 + rand() * ([llength $list]) - 1)}] return $index
}

1
2
3
proc Random {list} {
set index [expr {int(1 + rand() * ([llength $list]) - 1)}] return $index
}

1
pack [label .test -text test]

1
2
package require tk
pack [label .test -text test]

1
package require Tcl 8.6;set t [set 2 0]; for {set i 0} {$i <= 0xFFFF} {incr i} { set b [format %b $i]; if {[regsub -all 0 $b {}] == 111111} then { incr t; if {[regexp 11 $b]} then {incr 2} } }; puts $2/$t=[expr double($2)/double($t)]

1
set t [set 2 0]; for {set i 0} {$i <= 0xFFFF} {incr i} { set b [format %b $i]; if {[regsub -all 0 $b {}] == 111111} then { incr t; if {[regexp 11 $b]} then {incr 2} } }; puts $2/$t=[expr double($2)/double($t)]

1
puts "test"

1
puts [lindex $argv 0]

1
puts [lindex $argv 1]

1
2
3
4
5
6
7
8
9
xb1lIHRvIG5lYnlsbyB0xJvFvmvDqT8gSmVuIHBybyDDunBsbm9zdCBwcm8gbm9ybcOhbG7DrSAo
dGVkeSBuZXBvxI3DrXRhxI1vdsO9KSAgbGlkIC0gcHJvxI0gUG/FoXRvdm7DrT8gIEvDs2QgQmFz
ZTY0LCBrdGVyw71tIGplIHRlbmhsZSB0ZXh0IHpha8OzZG92w6FuLCBwb3XFvsOtdsOhdGUgbWou
ICAoYW5pxb4gdG8gdMWZZWJhIHbDrXRlKSB2ZSB2xaFlY2ggdmHFoWljaCBlbWFpbG92w71jaCB6
cHLDoXbDoWNoIGsgdG9tdSwgYWJ5IHNlIGsgdsOhbSBuZWJvIG9kIHbDoXMgZG9ixZllIHDFmWVu
ZXNseSB2xaFlY2hueSBWYcWhZSBmb3RreSwgdmlkZWEsIHRleHR5IHMgxI1lc2tvdSBkaWFrcml0
aWtvdSBhIGppbsOpIHZ5Y2h5dMOhdmt5IChvYmVjbsOhIGJpbsOhcm7DrSBkYXRhIHNlIGvDs2R1
asOtIHBvIDYgYml0ZWNoIGRvIHRpc2tudXRlbG7DvWNoIDY0IHpuYWvFrywga3RlcsOpIGpzb3Ug
cMWZZW5vc2l0ZWxuw6EgcG/FoXRvdm7DrW0gIE1JTUUgcHJvdG9rb2xlbSkuIFRha8W+ZSAgdGFr
 ...

1
 <span onmouseover="_tipon(this)" onmouseout="_tipoff()"><span class="google-src-text" style="direction: ltr; text-align: left">xb1lIHRvIG5lYnlsbyB0xJvFvmvDqT8gSmVuIHBybyDDunBsbm9zdCBwcm8gbm9ybcOhbG7DrSAo dGVkeSBuZXBvxI3DrXRhxI1vdsO9KSAgbGlkIC0gcHJvxI0gUG/FoXRvdm7DrT8gIEvDs2QgQmFz ZTY0LCBrdGVyw71tIGplIHRlbmhsZSB0ZXh0IHpha8OzZG92w6FuLCBwb3XFvsOtdsOhdGUgbWou ICAoYW5pxb4gdG8gdMWZZWJhIHbDrXRlKSB2ZSB2xaFlY2ggdmHFoWljaCBlbWFpbG92w71jaCB6 cHLDoXbDoWNoIGsgdG9tdSwgYWJ5IHNlIGsgdsOhbSBuZWJvIG9kIHbDoXMgZG9ixZllIHDFmWVu ZXNseSB2xaFlY2hueSBWYcWhZSBmb3RreSwgdmlkZWEsIHRleHR5IHMgxI1lc2tvdSBkaWFrcml0 aWtvdSBhIGppbsOpIHZ5Y2h5dMOhdmt5IChvYmVjbsOhIGJpbsOhcm7DrSBkYXRhIHNlIGvDs2R1 asOtIHBvIDYgYml0ZWNoIGRvIHRpc2tudXRlbG7DvWNoIDY0IHpuYWvFrywga3RlcsOpIGpzb3Ug cMWZZW5vc2l0ZWxuw6EgcG/FoXRvdm7DrW0gIE1JTUUgcHJvdG9rb2xlbSkuIFRha8W+ZSAgdGFr LiANCkEgdSBmaW7DoWxreSBzaSBtxa/FvmV0ZSB2enBvbWVub3V0LCBrZHkganN0ZSBuYXBvc2xl ZHkgcG9zbGFsaSB2bGFzdG5vcnXEjW7EmyBuYXBzYW7DvSBkb3BpcyDigJ5ub3Jtw6FsbsOt4oCc ICBwb8WhdG91IGEgdMWZZWJhIHRvIHBhayBuYXBzYXQgZG8gbG9ndS4gUMWZw61wYWRuxJsgbsSb Y28gb2QgZmluw6Fsa3kgcG9zbGF0IHN2w71tIGJsw616a8O9bSwgamVuIHRhayBwcm8gcmFkb3N0 Lg0KS2XFoSBqZSBvcHJhdmR1IG5hbm8sIGhsZWRlanRlIGppIG5hIHNvdcWZYWRuaWPDrWNoIE4g NTDCsCAxLjY0MScgIEUgMTXCsCA0Ny41ODQnLiBEb2Jyw70gbG92Lg0KUG96bi46IFBva3VkIHNl IHZhbSB6b2JyYXp1amUgc3BhdG5lIGRpYWtyaXRpa2EsIHBvdXppanRlIG5hc3Ryb2osIGt0ZXJ5 IHVtaSBVVEYtOC4NCg==</span> xb1lIHRvIG5lYnlsbyB0xJvFvmvDqT8gSmVuIHBybyDDunBsbm9zdCBwcm8gbm9ybcOhbG7DrSAo dGVkeSBuZXBvxI3DrXRhxI1vdsO9KSAgbGlkIC0gcHJvxI0gUG/FoXRvdm7DrT8gIEvDs2QgQmFz ZTY0LCBrdGVyw71tIGplIHRlbmhsZSB0ZXh0IHpha8OzZG92w6FuLCBwb3XFvsOtdsOhdGUgbWou ICAoYW5pxb4gdG8gdMWZZWJhIHbDrXRlKSB2ZSB2xaFlY2ggdmHFoWljaCBlbWFpbG92w71jaCB6 cHLDoXbDoWNoIGsgdG9tdSwgYWJ5IHNlIGsgdsOhbSBuZWJvIG9kIHbDoXMgZG9ixZllIHDFmWVu ZXNseSB2xaFlY2hueSBWYcWhZSBmb3RreSwgdmlkZWEsIHRleHR5IHMgxI1lc2tvdSBkaWFrcml0 aWtvdSBhIGppbsOpIHZ5Y2h5dMOhdmt5IChvYmVjbsOhIGJpbsOhcm7DrSBkYXRhIHNlIGvDs2R1 asOtIHBvIDYgYml0ZWNoIGRvIHRpc2tudXRlbG7DvWNoIDY0IHpuYWvFrywga3RlcsOpIGpzb3Ug cMWZZW5vc2l0ZWxuw6EgcG/FoXRvdm7DrW0gIE1JTUUgcHJvdG9rb2xlbSkuIFRha8W + ZSAgdGFr LiANCkEgdSBmaW7DoWxreSBzaSBtxa/FvmV0ZSB2enBvbWVub3V0LCBrZHkganN0ZSBuYXBvc2xl ZHkgcG9zbGFsaSB2bGFzdG5vcnXEjW7EmyBuYXBzYW7DvSBkb3BpcyDigJ5ub3Jtw6FsbsOt4oCc ICBwb8WhdG91IGEgdMWZZWJhIHRvIHBhayBuYXBzYXQgZG8gbG9ndS4gUMWZw61wYWRuxJsgbsSb Y28gb2QgZmluw6Fsa3kgcG9zbGF0IHN2w71tIGJsw616a8O9bSwgamVuIHRhayBwcm8gcmFkb3N0 Lg0KS2XFoSBqZSBvcHJhdmR1IG5hbm8sIGhsZWRlanRlIGppIG5hIHNvdcWZYWRuaWPDrWNoIE4g NTDCsCAxLjY0MScgIEUgMTXCsCA0Ny41ODQnLiBEb2Jyw70gbG92Lg0KUG96bi46IFBva3VkIHNl IHZhbSB6b2JyYXp1amUgc3BhdG5lIGRpYWtyaXRpa2EsIHBvdXppanRlIG5hc3Ryb2osIGt0ZXJ5 IHVtaSBVVEYtOC4NCg ==</span> 

1
2
3
4
5
6
7
if { $argc != 2 } {
        puts "The add.tcl script requires two numbers to be inputed."
        puts "For example, tclsh add.tcl 2 5".
        puts "Please try again."
    } else {
        puts [expr [lindex $argv 0] + [lindex $argv 1]]
        }

1
2
3
4
5
6
7
8
proc test {} {
 
puts " I am inside test "
 
proc test1 {} {
 
puts " I am inside test1"
}
 ...

1
2
3
4
5
6
7
8
proc test {} {
 
puts " I am inside test "
 
proc test1 {} {
 
puts " I am inside test1"
}
 ...

1
2
3
4
5
6
7
8
9
set ns [new Simulator]
 
# ----------- CREATING NAM OBJECTS -----------------#
 
set nf [open Tcpred3.nam w]
$ns namtrace-all $nf
 
#Open the trace file
set nt [open Tcpred3.tr w]
 ...

1
2
3
4
5
6
7
8
9
set ns [ new Simulator]
 
# ----------- CREATING NAM OBJECTS -----------------#
 
set nf [open Tcpred3.nam w]
$ns namtrace-all $nf
 
#Open the trace file
set nt [open Tcpred3.tr w]
 ...

1
2
3
4
puts "aaaa"
set a iii
puts $a
set a

1
2
set liczba [gets stdin]
while { $liczba != 42 } { puts $liczba; set liczba [gets stdin] }

1
2
3
4
5
6
7
8
9
 
 
set cmd [puts "I am Outside"]
puts $cmd
eval $cmd
 
if {[string match [info procs newProcA] ""] } {
concat $cmd "proc newproc {} {\n"
concat $cmd [puts "I am Inside"]
 ...

1
2
3
4
5
6
7
8
9
 
 
set cmd [puts "I am Outside"]
puts $cmd
eval $cmd
 
if {[string match [info procs newProcA] ""] } {
concat $cmd "proc newproc {} {\n"
concat $cmd [puts "I am Inside"]
 ...

1
2
3
4
5
6
7
8
9
 
 
set cmd [puts "I am Outside"]
puts $cmd
eval $cmd
 
if {[string match [info procs newProcA] ""] } {
concat $cmd "proc newproc {} {\n"
concat $cmd [puts "I am Inside"]
 ...

1
2
3
4
5
6
7
8
9
 
 
set cmd [puts "I am Outside"]
puts $cmd
eval $cmd
 
if {[string match [info procs newProcA] ""] } {
concat $cmd "proc newproc {} {\n"
concat $cmd [puts "I am Inside"]
 ...