如何求出十位以上的数?

coolpoom

如何求出十位以上的数?比如9.32 = 0;17.2 = 10;21.3 = 20;115 = 110 ...等等

Andyhon

Command: (* (fix (/ 115 10)) 10)
110

Command: (* (fix (/ 21.3 10)) 10)
20

Command: (* (fix (/ 17.2 10)) 10)
10

Command: (* (fix (/ 9.32 10)) 10)
0

coolpoom

学习了~

zhelindaxues

二楼的解释思路。先进行除10处理 然后再取整 乘10处理。同样也可以进行取5处理大于3取5 小于3取0

（defun c:qu5(x)

(setq y(/ x 5)

      x(rem x 5)

)

(if (> 3 x)(setq y (+ 1 y)))

(setq y (fix y))

(setq x (* 5 y))

）

以后要求对某数x进行处理时只要（qu5 x）就行了。

linheyuanpcb

问题是:如果本身已经是整的可以不加？如 150 已经整数了但他还+5

cabinsummer

4楼误导人，曲解2楼意思。
先用对数函数log和取整函数fix求出要处理的数有多少位，再根据2楼的方法用十的几次幂处理。类似原理请参考我的LISP大挑战第一季