diff options
author | antirez <antirez> | 2005-03-04 10:47:44 +0000 |
---|---|---|
committer | antirez <antirez> | 2005-03-04 10:47:44 +0000 |
commit | 71b54a34aefa47861f9d82102f898a3dc18ba798 (patch) | |
tree | 1225f7bb57dc82eb25d38f11137cabac4e007468 /bench.tcl | |
parent | 83c1c0116fc03c0b90ebd6aaa580cb579cf84a51 (diff) | |
download | jimtcl-71b54a34aefa47861f9d82102f898a3dc18ba798.zip jimtcl-71b54a34aefa47861f9d82102f898a3dc18ba798.tar.gz jimtcl-71b54a34aefa47861f9d82102f898a3dc18ba798.tar.bz2 |
Small README change to reflect LIBS Makefile var.
Diffstat (limited to 'bench.tcl')
-rw-r--r-- | bench.tcl | 44 |
1 files changed, 22 insertions, 22 deletions
@@ -219,28 +219,28 @@ proc pi_digits {} { set i0 [expr {$LEN+1}] set quot0 [expr {2*$LEN+1}] for {set j 0} {$j<$N} {incr j} { - set q 0 - set i $i0 - set quot $quot0 - set pos -1 - foreach apos $a { - set x [expr {10*$apos + $q * [incr i -1]}] - lset a [incr pos] [expr {$x % [incr quot -2]}] - set q [expr {$x / $quot}] - } - lset a end [expr {$q % 10}] - set q [expr {$q / 10}] - if {$q < 8} { - append result $predigit $nines - set nines {} - set predigit $q - } elseif {$q == 9} { - append nines 9 - } else { - append result [expr {$predigit+1}][string map {9 0} $nines] - set nines {} - set predigit 0 - } + set q 0 + set i $i0 + set quot $quot0 + set pos -1 + foreach apos $a { + set x [expr {10*$apos + $q * [incr i -1]}] + lset a [incr pos] [expr {$x % [incr quot -2]}] + set q [expr {$x / $quot}] + } + lset a end [expr {$q % 10}] + set q [expr {$q / 10}] + if {$q < 8} { + append result $predigit $nines + set nines {} + set predigit $q + } elseif {$q == 9} { + append nines 9 + } else { + append result [expr {$predigit+1}][string map {9 0} $nines] + set nines {} + set predigit 0 + } } #puts $result$predigit } |