2011-05-05から1日間の記事一覧
どもです。 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…
どもです。 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…