Erklärung eines Lisp-Codes

Question

Ich beginne zu studieren Lisp und ich finde einen Code auf dem Buch als Beispiel, aber ich verstehe nicht, wofür es ist. Kannst du mir helfen, das zu verstehen? Ich weiß nicht, ob es der richtige Ort dafür ist. Vielen Dank alle

(defun compress (l1)    
    (cond ((null (cdr l1)) '()) 
     (t (accumula (car l1) 1 (cdr l1))))) 


(defun accumula (val acc lst) 
    (cond ((null lst) (cons (comp-list val acc) nil)) 
     ((eq val (car lst)) (accumula val (1+ acc) (cdr lst))) 
     (t (cons (comp-list val acc) (accumula (car lst) 1 (cdr lst)))))) 

(defun comp-list (val acc) 
    (if (> acc 1) (list acc val) val)) 

Answer 1

Es ist eine Kompressionsfunktion, der Run Length Encoding Vielfalt.

(compress '(3 3 4 3 3 2 1 1 1 1 0)) 

wird

((2 3) 4 (2 3) 2 (4 1) 0) 

ergeben, wo die erste Zahl in jeder Unterliste die Anzahl von Malen ist, die zweite Zahl in der ursprünglichen Sequenz wiederholt.

Es sieht nicht sehr nach dem Beispiel aus, aber bei langen Sequenzen, bei denen sich die Anzahl sehr oft wiederholt, können Sie erhebliche Einsparungen bei den Speicherkosten erzielen.

Answer 2

Dies ist eine Antwort auf Problem 13 in The 99 Lisp problems (L99). Es hat einen Fehler:

(compress '(a)) 
; ==> nil 

Das richtige Ergebnis (a) gewesen wäre.