1
puts {Hello world}

1
printf("void");

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

1
hello world

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

1
puts "Hello, world!"

1
puts [info tclversion]

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

1
puts "hello world"

1
2
3
4
5
6
7
8
9
# compare the first_names value to the empty string
if { [string compare $first_names ""] == 0 } {
    lappend exception_list "You forgot to type your first name"
}
 
# see if their email address has the form
#   something at-sign something
if { ![regexp {.+@.+} $email] } {
    lappend exception_list "Your email address doesn't look valid."
 ...

1
2
3
set ten_factorial [factorial 10]
set checking_account_balance [expr 25 + 34 + 86]
puts "If you're so smart, why aren't you rich like Bill Gates?"

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

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

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

1
puts "abc [expr {1+2}] def"

1
set foo "bar"

1
2
set hw {Hello World};
puts "This is the message: $hw";

1
2
3
4
5
6
7
8
bind time - "?0 * * * *" check_sko
proc check_sko {mn hh dd mm yy} {
        set chan ##routerrooters
        if {[onchan Skobot $chan]} {
                channel set $chan -autovoice
        }
        return 0
}

1
2
3
4
5
6
7
8
proc thing {x} {
  upvar $x y
  incr y
  puts $y
}
 
set kk 5
thing $kk

1
2
3
4
5
6
7
8
9
import java.io.IOException; 
class Ordenamiento
{
public static void main(String[]args) throws IOException
{
int ordenamiento[]={8,9,3,5,1};
int aux = 0;
for(int k = 0;k <= 3;k++)
{
 ...

1
2
3
4
5
6
7
8
9
import java.io.IOException; 
class Ordenamiento
{
public static void main(String[]args) throws IOException
{
int ordenamiento[]={8,9,3,5,1};
int aux = 0;
for(int k = 0;k <= 3;k++)
{
 ...

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

1
puts [clock format -2147483648 -format %s]

1
2
3
4
5
6
7
8
9
#!/opt/exp/bin/tcl --
 
set sock [socket wettbewerb.linux-magazin.de 3333]
fconfigure sock -encoding utf-8
 
while {[gets $sock cmd] >= 0} {
        switch -glob -- $cmd {
                HELO* {
                        puts $sock "AUTH faith 1234"
 ...

1
2
3
4
5
6
7
8
9
proc lremove {original args} {
  variable result [list]
  variable offset 0
  variable end [expr [llength $original] - 1]
 
  regsub -all {end} $args $end args
  variable realargs [list]
  foreach {arg} $args {
    lappend realargs [expr $arg]
 ...

1
2
3
4
5
6
7
8
9
package require Tk
package require TclOO
 
oo::class create house {
  constructor {} {
    my variable guy Joe
    puts $guy
  }
}
 ...

1
¸„ħ}ßnïÚæ“‘½–ä´CB»GH¥÷tf…VlÕÄe¢±Îü¨

1
puts "hello"

1
2
3
4
5
6
7
8
9
my($number) = "8144658695";
 
$number =~ m/(\d\d\d)(\d\d\d)(\d\d\d\d)/;
 
my $num1 = $1;
my $num2 = $2;
my $num3 = $3;
 
print $num1 . "\n";
 ...

1
Charlie bit me!