Posted to tcl by evilotto at Thu Mar 02 18:52:30 GMT 2017view pretty
% set a 1
1
% time {set a [expr $a + 1]} 1000000
2.834298 microseconds per iteration
% set a 1
1
% time {set a [expr {$a + 1}]} 1000000
0.422323 microseconds per iteration
%
% set a 1
1
% time {set a [expr $a + 1]} 1000000
2.834298 microseconds per iteration
% set a 1
1
% time {set a [expr {$a + 1}]} 1000000
0.422323 microseconds per iteration
%