tanakaBox https://blog.hatena.ne.jp/tanakaBox/ ボクノス https://boxnos.hatenablog.com/ Scheme 休みの間に、ACLを読み進めてたので、コーディングしてきます。3章のランレングス符号に挑戦します。SICPでハフマン符号化木をやったけど、ランレングス符号の方がずっと簡単な圧縮方法っぽい。ウェイトレスと4人の客の話が面白い。 圧縮を写経 まずは、動きを確認するために、圧縮を写経します。 (define (compress x) (if (pair? x) (compr (car x) 1 (cdr x)) x)) (define (compr elt n lst) (if (null? lst) (list (n-elts elt n)) (let ((next (car lst))) (if… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20080106%2F1199553495" title=" ACL(2) 3.6 ランレングス符号 - ボクノス" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2008-01-06 02:18:15 rich https://boxnos.hatenablog.com/entry/20080106/1199553495 1.0 100%