- 418 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 21:20:52 ]
- 別にyは負数でもよくね?ってことで
(defun my-round2 (x y)
(float (* (round x #1=(expt 10 y)) #1#)))
(my-round2 95.6453 -3)
95.645
(my-round2 95.6453 -2)
95.65
あとCLに限らずroundは四捨五入とは違う(丁度真ん中は近い方の偶数になる)から
注意してね。
(round 2.5)
2
(round 2.6)
3
(round 3.5)
4
