移位运算

/db_自贡黄明儒_

移位运算
   将被转换字符的8个位全部左移一位,最前面一位移到最后(相当于将该整数乘以2，若最高位是1（移位后>256），
   则将溢出位1移至最末位，否则用0代替末位)
   我们假设用函数F表示这一运算过程。
   ----字符0x96，二进制为10010110，则F（0x96）=F（10010110）=00101101=0x2D。

1. ;;转入十进制，输入十进制
   
2. (defun F+ (INT / TMP)
   
3.     ;;十进制转化为二进制
   
4.     (setq TMP (DEG->BIN INT))
   
5.     ;;补齐为 8 位
   
6.     (while (< (strlen TMP) 8)
   
7.         (setq TMP (strcat "0" TMP))
   
8.     )
   
9.     ;;将首位移动到末位
   
10.     (setq TMP (strcat (substr TMP 2 7) (substr TMP 1 1)))
    
11.     ;;返回
    
12.     (BIN->DEG TMP)
    
13. )
    
14. ;;;二进制转化为十进制
    
15. ;;;例如：(bin->deg "11")  返回 3
    
16. ;;;      (deg->bin "101") 返回 5
    
17. (defun BIN->DEG        (STR)
    
18.     (if        (<= (strlen STR) 1)
    
19.         (if (= STR "1")
    
20.             1
    
21.             0
    
22.         )
    
23.         (if (= (substr STR 1 1) "1")
    
24.             (+ (expt 2 (- (strlen STR) 1))
    
25.                (BIN->DEG (substr STR 2))
    
26.             )
    
27.             (BIN->DEG (substr STR 2))
    
28.         )
    
29.     )
    
30. )

;;转入十进制，输入十进制<br /> (defun F+ (INT / TMP)<br />     ;;十进制转化为二进制<br />     (setq TMP (DEG->BIN INT))<br />     ;;补齐为 8 位<br />     (while (< (strlen TMP) 8)<br />         (setq TMP (strcat "0" TMP))<br />     )<br />     ;;将首位移动到末位<br />     (setq TMP (strcat (substr TMP 2 7) (substr TMP 1 1)))<br />     ;;返回<br />     (BIN->DEG TMP)<br /> )<br /> ;;;二进制转化为十进制<br /> ;;;例如：(bin->deg "11")  返回 3<br /> ;;;      (deg->bin "101") 返回 5<br /> (defun BIN->DEG        (STR)<br />     (if        (<= (strlen STR) 1)<br />         (if (= STR "1")<br />             1<br />             0<br />         )<br />         (if (= (substr STR 1 1) "1")<br />             (+ (expt 2 (- (strlen STR) 1))<br />                (BIN->DEG (substr STR 2))<br />             )<br />             (BIN->DEG (substr STR 2))<br />         )<br />     )<br /> )