2008-08-03から1日間の記事一覧
P11 (define (encode ls) (let iter ( (l ls) (len 0) (last '()) (ret '())) (cond ( (null? l) (cond ( (= len 0) ret) ( (= len 1) (append ret (list len))) (else (append ret (list (list len last)))))) ( (null? last) (iter (cdr l) 1 (car l) ret)…