一统+ strcat

/db_自贡黄明儒_ · 发表于 2013-8-20 10:39:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;一统+ strcat
;;在处理输入时，可能有些用处自贡黄明儒 2013年8月20日
;;(++ '(2 3));返回5
;;(++ '("A" 5));返回"A5"
(defun ++ (lis / SYMBOL X)
  (if (vl-every 'numberp lis)
(setq symbol +)
(progn
   (setq symbol strcat)
   (setq lis       (mapcar       '(lambda (x)
                        (if (numberp x)
                           (VL-PRINC-TO-STRING x)
                           x
                        )
                     )
                     lis
            )
   )
)
  )
  (apply 'symbol lis)
)

st788796 · 发表于 2013-8-20 10:48:57

本帖最后由 st788796 于 2013-8-20 10:50 编辑

可以简化下

(defun ++ (lis )
(if (vl-every 'numberp lis)
(apply '+ lis)
(apply 'strcat (mapcar 'vl-princ-to-string lis))
)
)

newer · 发表于 2013-8-20 10:50:30

有想法。

st788796 · 发表于 2013-8-20 11:14:04

vl-princ-to-string 可以把任何数据转换为 String ，原来是 String 转换后还是 String，不需要判断

账号		自动登录	找回密码
密码			立即注册

[原创] 一统+ strcat

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分