在剪辑中将浮点数四舍五入到两位小数

Question

CLIPS给出了一个浮点数，最多为小数位数。

e.g

CLIPS> ( / 4 3)
1.33333333333333

如何将值四舍五入到小数点后两位(本例中为1.33)

Answer 1

         CLIPS (6.31 6/12/19)
CLIPS> (bind ?n (/ 4 3))
1.33333333333333
CLIPS> (/ (integer (* ?n 100)) 100)
1.33
CLIPS> 
(deffunction precision (?num ?digits)
  (bind ?m (integer (** 10 ?digits)))
  (/ (integer (* ?num ?m)) ?m))
CLIPS> (precision ?n 2)
1.33
CLIPS> (precision ?n 4)
1.3333
CLIPS> (precision ?n 0)
1.0
CLIPS>