P11 (*) 游程编码改

问题描述

在P10的算法实现中，若一个元素不连续重复，我们最终也转化为(N E)的形式，即N为1的特殊形式。 该题的要求是特殊处理这一情况，直接将元素复制到结果列表中。如

sash> (encode-modified '(a a a a b c c a a d e e e e))sash>  ((4 a) b (2 c) (2 a) d (4 e))

解法

按照题目要求，我们只修改let绑定的局部enc，即可。这是封装抽象的好处，能让修改局部化，利于逻辑清晰和维护，对现实中的大项目尤甚。

• 递归实现

  (define encode-modified  (lambda (ls)    (let ([p (pack ls)]      [enc (lambda (sub)             (if (null? (cdr sub))                 (car sub)                 (list (length sub)                       (car sub))))])  (let f ([p p])    (cond      [(null? p) '()]      [else (cons             (enc (car p))             (f (cdr p)))]))))) 

• reduce实现

  (define encode-modified(lambda (ls)    (let ([p (pack ls)]      [enc (lambda (sub)             (if (null? (cdr sub))                 (car sub)                 (list (length sub)                       (car sub))))])  (fold-right   (lambda (e a)     (cons      (enc e)      a))   '()   p))))

• map实现

(define encode-modified  (lambda (ls)    (let ([p (pack ls)]          [enc (lambda (sub)                 (if (null? (cdr sub))                     (car sub)                     (list (length sub)                           (car sub))))])      (map       (lambda (e)         (enc e))       p))))