Statistics: Posted by Ofloo — Sat May 29, 2004 11:18 am

Statistics: Posted by Ofloo — Sat May 29, 2004 11:14 am

<snip>
^- So from the routines there, you can construct your pow function as such
<snip>

Statistics: Posted by strikelight — Sat May 29, 2004 11:13 am

Statistics: Posted by Ofloo — Sat May 29, 2004 10:54 am

The global variable tcl_precision determines the number of significant digits that are retained when floating values are converted to strings (except that trailing zeroes are omitted). If tcl_precision is unset then 6 digits of precision are used. To retain all of the significant bits of an IEEE floating-point number set tcl_precision to 17; if a value is converted to string with 17 digits of precision and then converted back to binary for some later calculation, the resulting binary value is guaranteed to be identical to the original one.

proc pow {num pow} {   set b [tolist 1]   set num [tolist $num]  for {set i 0} {$i < $pow} {incr i} {     set b [multa $b $num]   }   fromlist $b }

% pow 2 4
16
% pow 14 20
83668255425284801560576

Statistics: Posted by strikelight — Sat May 29, 2004 10:00 am

Statistics: Posted by spock — Sat May 29, 2004 9:32 am

proc pow {e arg} {  for {set i 0} {$i <= $e} {incr i} {    if {[info exists expr]} {      set expr [expr $expr*$arg]    } else {      set expr 1    }  }  return $expr}

Statistics: Posted by Ofloo — Fri May 28, 2004 7:55 pm