本帖最后由 vectra 于 2016-4-29 20:28 编辑
- (setq b1'(("1+000" (30 40 5.5))
- ("1+050" (30 50 5.6))
- ("1+100" (35 55 5.7))
- ("1+150" (37 55 5.8))
- ("1+200" (38 57 6.0))
- ))
- _$ (subst '("1+050" (30 50 15.7)) (assoc "1+050" b1) b1)
- (("1+000" (30 40 5.5)) ("1+050" (30 50 15.7)) ("1+100" (35 55 5.7)) ("1+150" (37 55 5.8)) ("1+200" (38 57 6.0)))
|