どもです。 L99 ですが，バックトラック法を，もひとつ，いやさ，全然わかってないので， P59 で立ち止まって，少し戻って武器を獲得すべくよりみち勉強。 The Land of Lisp についても，しんどくなったので，少し戻って，Lisp の基礎を勉強中。 これがほん…

どもです。 P16 から P20 です。無理に再帰で書こうとしているかなぁという感じもあったり， loop を使っていこうと意気込んでいたころかなぁと。 ;;;; P16 (defun drop (lst n) (labels ((drop-aux (l e) (cond ((null l) nil) ((eq (car l) e) (drop-aux (…

どもです。 P11からP15です。P13 がもひとつよくわからなかったです。 ;;;; P11 (defun encode-modified (lst) (mapcar (lambda (l) (if (<= (length l) 1) (car l) (list (length l) (car l)))) (pack lst))) (encode-modified '(a a a a b c c a a d e e e…