刚编了个任意进制转换,请大家分享
(defun N_jin (n d / b c pl); (setq pl '()) (while (if (/= (/ n d) 0)(progn (setq b (- (/ n (float d)) (fix (/ n d)))) (setq c (* b d));余数 (setq n (fix (/ n d))) (setq pl (cons (fix c) pl))))) (setq pl (cons n pl)) );ok
(N_jin 1879 2)-(1 1 1 0 1 0 1 0 1 1 1)
(N_jin 1879 3)-(2 1 2 0 0 1 1)
(N_jin 1879 16)-(7 5 7)
|