（xd::file:bin2int）4字节（32位）二进制整数表转10进制

marting

1. (defun xd::file:bin2int (lst / i val)
   
2.   (if (and lst (<= (length lst) 4))
   
3.     (progn (setq i 0
   
4.                  val 0
   
5.            )
   
6.            (mapcar '(lambda (x)
   
7.                       (setq val (+ val (lsh x (* i 8)))
   
8.                             i   (1+ i)
   
9.                       )
   
10.                     )
    
11.                    lst
    
12.            )
    
13.     )
    
14.   )
    
15.   val
    
16. )
    

(defun xd::file:bin2int (lst / i val)<br />   (if (and lst (<= (length lst) 4))<br />     (progn (setq i 0<br />                  val 0<br />            )<br />            (mapcar '(lambda (x)<br />                       (setq val (+ val (lsh x (* i 8)))<br />                             i   (1+ i)<br />                       )<br />                     )<br />                    lst<br />            )<br />     )<br />   )<br />   val<br /> )<br />

整数存储二进制，是4字节（32位），低16位在前，高16位在后

命令: (setq a (xd::file:int2bin 10546089))
(169 235 160 0)
命令: (xd::file:bin2int a)
10546089

ayl1004

(apply '+ (mapcar 'lsh lst '(0 8 16 24)))是不是简单多了
来自: 微社区