Lines Matching refs:r

88   set r [expr {int(rand()*500000)}]
89   set x [number_name $r]
90   lappend list $i $r $x
93   foreach {i r x} $::list {
94     db eval {INSERT INTO t1 VALUES($i,$r,$x)}
97 explain {INSERT INTO t1 VALUES($i,$r,$x)}
106   set r [expr {int(rand()*500000)}]
107   set x [number_name $r]
108   lappend list $i $r $x
111   foreach {i r x} $::list {
112     db eval {INSERT INTO t2 VALUES($i,$r,$x)}
115 explain {INSERT INTO t2 VALUES($i,$r,$x)}
262   set r [expr {int(rand()*500000)}]
263   lappend list $i $r
266   foreach {i r} $::list {
267     db eval {UPDATE t1 SET b=$r WHERE a=$i}
270 explain {UPDATE t1 SET b=$r WHERE a=$i}
287   set r [expr {int(rand()*500000)}]
288   lappend list $i [number_name $r]