1
2
3
4
5
6
7
 
 
for { set i 2000} { $i <= 3000 } { incr i } {
        set j [expr $i%254];
        set k [expr $i/254];
        puts "ip address 110.1.$k.$j 255.255.0.0"
}

1
2
3
4
5
6
7
8
 
 
for { set i 2000} { $i <= 3000 } { incr i } {
#set j $i%254
#set k $i/254
puts "hi"
#puts "ip address 110.1.$k.$j 255.255.0.0"
}

1
2
3
4
5
6
for { set i 2000} { $i <= 3000 } { incr i } {
        set j [expr { $i%254 }]
        set k [expr { $i/254 }]
        
        puts "ip address 110.1.$k.$j 255.255.0.0"
}

1
2
3
4
5
6
for { set i 2000} { $i <= 3000 } { incr i } {
        set j expr { $i%254 }
        set k expr { $i/254 }
        
        puts "ip address 110.1.$k.$j 255.255.0.0"
}

1
2
3
4
5
6
for { set i 2000} { $i <= 3000 } { incr i } {
        set j $i%254
        set k $i/254
        
        puts "ip address 110.1."+$k+"."+$j+" 255.255.0.0"
}

1
2
3
4
5
6
for { set i 2000} { $i <= 3000 } { incr i } {
        set j $i%254
        set k $i/254
        
        puts "ip address 110.1."$k"."$j" 255.255.0.0"
}

1
2
3
4
5
6
for { set i 2000} { $i <= 3000 } { incr i } {
        set j $i%254
        set k $i/254
        
        puts "ip address 110.1.$k.$j 255.255.0.0"
}

1
2
3
4
5
6
for { set i 2000} { $i <= 2010 } { incr i } {
        set j $i%254
        set k $i/254
        
        puts "interface vlan $i" "ip address 110.1.$k.$j 255.255.0.0" "exit"
}

1
2
3
4
5
6
set a [rand()]
echo $a
set a [rand()]
echo $a 
set a [rand()]
echo $a

1
2
3
4
5
6
set a rand()
echo "$a"
set a rand()
echo "$a" 
set a rand()
echo "$a"

1
2
3
4
5
6
set a rand()
echo $a
set a rand()
echo $a 
set a rand()
echo $a

1
2
3
4
5
6
set a rand()
echo a
set a rand()
echo a 
set a rand()
echo a

1
echo rand()

1
2
3
4
5
6
7
8
9
set ul 10
set ll 1
 
proc rgen {ll ul} {
  global r
  set r [expr $ll+int(rand()*$ul + 1)]
  return $r
}
for {set i 0} {$i < 10} {incr i} {
 ...

1
2
3
4
5
6
7
8
9
set ul 10
set ll 1
 
proc rgen {ll ul} {
  global r
  set r [expr $ll+int(rand()*$ul + 1)]
  echo "rand value:$int(rand())"
  return $r
}
 ...

1
2
3
4
5
6
7
8
9
set ul 10
set ll 1
 
proc rgen {ll ul} {
  global r
  set r ([expr $ll+int(rand()*$ul + 1)])*
  return $r
}
for {set i 0} {$i < 10} {incr i} {
 ...

1
2
3
4
5
6
7
8
9
set ul 10
set ll 1
 
proc rgen {ll ul} {
  global r
  set r [expr $ll+int(rand()*$ul + 1)]
  return $r
}
for {set i 0} {$i < 10} {incr i} {
 ...

1
2
3
4
5
6
7
8
9
set ul 10
set ll 1
 
proc rgen {ll ul} {
  global r
  set r [expr $ll+int(rand()*$ul + 1)]
  return r
}
for {set i 0} {$i < 10} {incr i} {
 ...

1
2
3
4
5
6
7
8
9
proc rgen {ll, ul} {
  global r
  set r [expr $ll+int(rand()*$ul + 1)]
  return r
}
for {set i 0} {$i < 10} {incr i} {
 set result [rgen 1 10]
 puts -nonewline "\t $result"
}

1
2
3
4
5
6
7
8
9
set ul 10
set ll 1
 
proc rgen {ll, ul} {
  global r
  set r [expr ll+int(rand()*$ul + 1)]
  return r
}
for {set i 0} {$i < 10} {incr i} {
 ...

1
2
3
4
5
6
7
8
9
set ul 10
set ll 1
 
proc rgen {ll, ul} {
  global r
  set r [expr ll+int(rand()*$ul + 1)]
  return r
}
for {set i 0} {$i < 10} {incr i} {
 ...

1
2
3
4
5
6
7
8
program computeaverage;
        
const
        skip = ' ';
 
var
        score1, score2, score3 : integer;
        average : real;
 ...

1
2
3
4
5
6
7
8
program computeaverage;
        
const
        skip = ' ';
 
var
        score1, score2, score3 : integer;
        average : real;
 ...

1
puts "Hello world"

1
puts "Hello world"

1
2
3
4
5
6
7
set a 10
set b 20
set c 30
 
proc add {a b c} {
 echo "val [expr $a+$b+$c]"
}

1
2
3
4
5
6
7
set a 10
set b 20
set c 30
 
proc add {a b c} {
 echo "val [expr a+b+c]"
}

1
2
3
4
5
6
7
set a 10
set b 20
set c 30
 
proc add {a b c} {
 puts [expr a+b+c]
}

1
2
3
4
5
6
7
set a 10
set b 20
set c 30
 
proc add {a b c} {
 puts [exp a+b+c]
}

1
2
3
4
5
6
7
8
9
                        
                                 
                          
                         
                 
             
                           
                          
                                 
 ...