十进制转二进制

mahuan1279

(defun sr (str)
  (setq strlst (mapcar '(lambda (x) (- x 48)) (vl-string->list str)))
  strlst
)
(defun ften->bin (lst)
    (setq blst nil binstr nil)
    (while (apply 'or (mapcar '(lambda (x) (/= x 0)) lst ))
             (setq flag 0)
             (setq lst (mapcar '(lambda (x)
                                    (setq z (/ (+ (* flag 10) x) 2))
                                    (setq flag (rem (+ (* flag 10) x) 2))
                                       z
                                 )
                            lst
                        )
              )
              (setq blst (cons flag blst))
    )
    (setq binstr (apply 'strcat (mapcar '(lambda (x) (itoa x)) blst)))
    binstr
)
(ften->bin (sr (getstring "请输入十进制数n=")))

434939575

用在哪方面啊？

mahuan1279

434939575 发表于 2014-12-12 22:38
用在哪方面啊？

二进制的用处很多啊，举个简单的，用加法来实现乘法就用到二进制。

看天的小树

2. (defun sr (str)
   
3.   (setq strlst (mapcar '(lambda (x) (- x 48)) (vl-string->list str)))
   
4.   strlst
   
5. )
   
6. (defun ften->bin (lst)
   
7.     (setq blst nil binstr nil)
   
8.     (while (apply 'or (mapcar '(lambda (x) (/= x 0)) lst ))
   
9.              (setq flag 0)
   
10.              (setq lst (mapcar '(lambda (x)
    
11.                                     (setq z (/ (+ (* flag 10) x) 2))
    
12.                                     (setq flag (rem (+ (* flag 10) x) 2))
    
13.                                        z
    
14.                                  )
    
15.                             lst
    
16.                         )
    
17.               )
    
18.               (setq blst (cons flag blst))
    
19.     )
    
20.     (setq binstr (apply 'strcat (mapcar '(lambda (x) (itoa x)) blst)))
    
21.     binstr
    
22. )
    
23. (ften->bin (sr (getstring "请输入十进制数n=")))

(defun sr (str)<br />   (setq strlst (mapcar '(lambda (x) (- x 48)) (vl-string->list str)))<br />   strlst<br /> )<br /> (defun ften->bin (lst)<br />     (setq blst nil binstr nil)<br />     (while (apply 'or (mapcar '(lambda (x) (/= x 0)) lst ))<br />              (setq flag 0)<br />              (setq lst (mapcar '(lambda (x) <br />                                     (setq z (/ (+ (* flag 10) x) 2))<br />                                     (setq flag (rem (+ (* flag 10) x) 2))<br />                                        z <br />                                  )<br />                             lst<br />                         )<br />               )<br />               (setq blst (cons flag blst))<br />     )<br />     (setq binstr (apply 'strcat (mapcar '(lambda (x) (itoa x)) blst)))<br />     binstr<br /> )<br /> (ften->bin (sr (getstring "请输入十进制数n=")))

;能否用于幂计算十进制转二进制

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

yxp

搜了一下进制转换，就发现这一个帖子，就是转换效率有点惨不忍睹。

mahuan1279

yxp 发表于 2018-4-2 02:59
搜了一下进制转换，就发现这一个帖子，就是转换效率有点惨不忍睹。

不知你的数据是什么？会导致惨不忍睹的效果？

yxp

BASE64码的转换时，需要对二进制数据操作，贴一个我的转换程序

1. ;;十进制转换为二进制
   
2. (defun d2b(i / s)
   
3. (while(> i 0)(setq s (cons(logand i 1) s) i (lsh i -1)))s
   
4. )

;;十进制转换为二进制<br /> (defun d2b(i / s)<br /> (while(> i 0)(setq s (cons(logand i 1) s) i (lsh i -1)))s<br /> )

mahuan1279

yxp 发表于 2018-4-10 10:01
BASE64码的转换时，需要对二进制数据操作，贴一个我的转换程序

移位和逻辑运算效率的确很高，但1秒和0.01秒在视觉上没什么区别，谈不上惨不忍睹吧。我只是想对任意输入数值都可转换，你的数据超过22亿就不行了。