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)…

EeePC買ってからマック・カフェでちょこちょここれ L-99: Ninety-Nine Lisp Problems をSchemeでやってまして、とりあえず第1章・リスト遊び（勝手に章付け）P28まで終わったのでまとめておきます。 P01 リストの最後の要素を単一要素のリストで返す関数 (de…