423 |
(setq power (+ power (- decimal-digits (length digit-string))))) |
(setq power (+ power (- decimal-digits (length digit-string))))) |
424 |
|
|
425 |
; round up and add minus sign, if necessary |
; round up and add minus sign, if necessary |
426 |
(f (* (+ (string-to-int digit-string) |
(f (* (+ (string-to-number digit-string) |
427 |
(if round-up 1 0)) |
(if round-up 1 0)) |
428 |
(if mant-sign -1 1)))) |
(if mant-sign -1 1)))) |
429 |
|
|
433 |
(expt 0) (chunks 0) (tens 0) (exponent _f1) |
(expt 0) (chunks 0) (tens 0) (exponent _f1) |
434 |
(func 'f*)) |
(func 'f*)) |
435 |
|
|
436 |
(setq expt (+ (* (string-to-int |
(setq expt (+ (* (string-to-number |
437 |
(substring expt-subst 0 |
(substring expt-subst 0 |
438 |
(min expt-digits (length expt-subst)))) |
(min expt-digits (length expt-subst)))) |
439 |
(if expt-sign -1 1)) |
(if expt-sign -1 1)) |