Lines Matching refs:expr

30 expr srand(0)
45     set txt "[number_name [expr {$n/1000}]] thousand"
46     set n [expr {$n%1000}]
51     append txt " [lindex $::ones [expr {$n/100}]] hundred"
52     set n [expr {$n%100}]
55     append txt " [lindex $::tens [expr {$n/10}]]"
56     set n [expr {$n%10}]
87   set r [expr {int(rand()*500000)}]
104   set r [expr {int(rand()*500000)}]
124   set lwr [expr {$i*100}]
125   set upr [expr {($i+10)*100}]
134 speed_trial_tcl speed1p-select1 [expr {50*50000}] row $script
150 speed_trial_tcl speed1p-select2 [expr {50*50000}] row $script
168   set lwr [expr {$i*100}]
169   set upr [expr {($i+10)*100}]
185   set id [expr {int(rand()*50000)+1}]
201   set id [expr {int(rand()*50000)+1}]
233   set lwr [expr {$i*2}]
234   set upr [expr {($i+1)*2}]
250   set r [expr {int(rand()*500000)}]
273   set r [expr {int(rand()*500000)}]