scheme - 需要解释 Lisp 中的反向科学记数法函数

Question

这是我拥有并理解的函数，从 1) 你的系数和 2) 你的指数，然后从科学记数法中提取数字。

示例:

coefficient 7, 
exponent 3 

7 * 10^3 = 7000

(define (scientific coeffiecent exponent) (* coefficient (expt 10 exponent)))

这就是我正在努力解决的问题:从 7000 到用于将其转换为科学记数法的系数和指数的函数。我通过网络获得了工作功能，但真的很难完全理解它。

(define (sci-exponent number)
  (floor (/ (log number) (log 10))))

(define (sci-coefficient number)
  (/ number (expt 10 (sci-exponent number))))

如果有人能帮助我理解，将不胜感激!感谢您以任何方式阅读!

Answer 1

查看 sci-exponent 的主体，它占据了 log(number)/log(10) 的底面。正如您可能记得的数学课:log_a(n1)/log_a(n2) = log_n2(n1)。所以你得到的是 log₁₀(number)，它的底数是 number 的位数减 1，这将是科学计数法。

然后可以很容易地从指数中导出系数。因为，如您所写，coeff * exp = number，然后 number/exp = coeff，这正是 sci-coefficient 正在实现的。