Lines Matching refs:expr

26 expr srand(0)
47     set txt "[number_name [expr {$n/1000}]] thousand"
48     set n [expr {$n%1000}]
53     append txt " [lindex $::ones [expr {$n/100}]] hundred"
54     set n [expr {$n%100}]
57     append txt " [lindex $::tens [expr {$n/10}]]"
58     set n [expr {$n%10}]
90   set r [expr {int(rand()*500000)}]
101   set r [expr {int(rand()*500000)}]
115   set lwr [expr {$i*100}]
116   set upr [expr {($i+10)*100}]
120 speed_trial speed1-select1 [expr {50*50000}] row $sql
132 speed_trial speed1-select2 [expr {50*50000}] row $sql
150   set lwr [expr {$i*100}]
151   set upr [expr {($i+10)*100}]
162   set id [expr {int(rand()*50000)+1}]
173   set id [expr {int(rand()*50000)+1}]
198   set lwr [expr {$i*2}]
199   set upr [expr {($i+1)*2}]
210   set r [expr {int(rand()*500000)}]
228   set r [expr {int(rand()*500000)}]