Lines Matching refs:expr

24 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}]
88   set r [expr {int(rand()*500000)}]
106   set r [expr {int(rand()*500000)}]
127   set lwr [expr {$i*100}]
128   set upr [expr {($i+10)*100}]
138 speed_trial_tcl speed1p-select1 [expr {50*50000}] row $script
155 speed_trial_tcl speed1p-select2 [expr {50*50000}] row $script
175   set lwr [expr {$i*100}]
176   set upr [expr {($i+10)*100}]
193   set id [expr {int(rand()*50000)+1}]
210   set id [expr {int(rand()*50000)+1}]
244   set lwr [expr {$i*2}]
245   set upr [expr {($i+1)*2}]
262   set r [expr {int(rand()*500000)}]
287   set r [expr {int(rand()*500000)}]