반올림 리습……

자료를 찾아도 없길래 누군가 필요하실지도 몰라서 적고 갑니다.

10분의 1 반올림. (Lee Mac Lisp 참조)
http://www.lee-mac.com/round.html

100분의 1 반올림. (단, persent 는 1이상)
(defun Roundto2 ( target persent )
(if (> persent 0) (setq roundt (* target (expt 10. (- persent 1)))) (setq roundt target))
(/ (+ (fix roundt) (if (< (- roundt (fix roundt)) 0.25) 0. (if (>= (- roundt (fix roundt)) 0.75) 1. 0.5))) (expt 10. (if (> persent 0) (- persent 1) persent)))
)

미흡한 실력이나마나 읽어주셔서 감사합니다…


리맥씨한테는 해당소스를 메일로 보내서 위 소스를 더욱 보완해달라고 졸라보았습니다.