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))))
  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值