表压缩

marting

1. (defun ::Compress(lst construct / cons_list $N DB W)
   
2.     (defun cons_list()
   
3.         (if construct
   
4.             (cond((= w 1)(cons $n db))((> w 0)(cons (cons $n w) db)))
   
5.             (if(> w 0)(cons w (cons $n db)))
   
6.         )
   
7.     )
   
8. 
   
9.     (setq $n nil w 0 db nil)
   
10.     (foreach n lst
    
11.         (if (/= $n n)(setq db (cons_list) $n n w 0))
    
12.         (setq w (1+ w))
    
13.     )
    
14.     (setq db (cons_list))
    
15.     (reverse db)
    
16. )
    

(defun ::Compress(lst construct / cons_list $N DB W)<br />     (defun cons_list()<br />         (if construct<br />             (cond((= w 1)(cons $n db))((> w 0)(cons (cons $n w) db)))<br />             (if(> w 0)(cons w (cons $n db)))<br />         )<br />     )<br /> <br />     (setq $n nil w 0 db nil)<br />     (foreach n lst<br />         (if (/= $n n)(setq db (cons_list) $n n w 0))<br />         (setq w (1+ w))<br />     )<br />     (setq db (cons_list))<br />     (reverse db)<br /> )<br />

example:

_$ (::Compress  '(1 1 1 2 2 2 3 3 3 3 3 3 4 4 4 4 5 6 6 6 7 8) T)
((1 . 3) (2 . 3) (3 . 6) (4 . 4) 5 (6 . 3) 7 8)
_$ (::Compress  '(1 1 1 2 2 2 3 3 3 3 3 3 4 4 4 4 5 6 6 6 7 8) F)
(1 3 2 3 3 6 4 4 5 1 6 3 7 1 8 1)

434939575

谢谢分享，这个蛮好的！

xyp1964

压缩这样的表 '(1 2 3 4 5 6 7 8 9 0) 可能更长了

sicky111

这样压缩有什么用？

kqqt6236

谢谢分享。

yjch

谢谢分享。