664571221 发表于 2018-9-20 08:09:28

如图有三个文字你好我好他好，选择三个文字用+号连接

文字是举例，不限于这几个文字，如图有三个文字你好我好他好，选择三个文字用+号连接

自贡黄明儒 发表于 2018-9-20 08:30:14

>>> "%s+%s+%s"%("你好","他好","我好")
'你好+他好+我好'
>>> "{0}+{1}+{2}".format("你好","他好","我好")
'你好+他好+我好'

strcat("你好"+"他好"+"我好")=>'你好+他好+我好'

xyp1964 发表于 2018-9-20 20:10:27

;; (xyp-strcat '("1" "2" "3") "+") → "1+2+3"
(defun xyp-strcat (lst str / a)
(if (> (length lst) 1)
    (setq a (car lst)
          lst (mapcar '(lambda (x) (strcat str x)) (cdr lst))
          a   (strcat a (apply 'strcat lst))
    )
    (car lst)
)
)

lisperado 发表于 2018-10-2 03:23:09

本帖最后由 lisperado 于 2018-10-2 08:32 编辑

学习 MP & LM 递归
;方法1
(defun tt (l $ )
((lambda (tt l $) (substr (apply 'strcat (tt l $)) 2))
    '((l $)(if l (cons (strcat $ (car l)) (tt (cdr l) $)))) l $
    )
)

(tt '("A" "B" "C") "+")
"A+B+C"

;方法2
(defun fx (l $)
(
   '( ( fx ) (apply 'strcat (cdr (apply 'append (fx l $)))))
    '( ( l $ ) (if l (cons (list $ (car l)) (fx (cdr l) $))
       )
      )
    )
)


(fx '("A" "B" "C") "+")
"A+B+C"



664571221 发表于 2018-9-20 10:10:51

自贡黄明儒 发表于 2018-9-20 08:30
>>> "%s+%s+%s"%("你好","他好","我好")
'你好+他好+我好'
>>> "{0}+{1}+{2}".format("你好","他好","我 ...

能否来一个完整的，这个看不懂，文字不限于这几个，就是文字用+连接

mikewolf2k 发表于 2018-9-20 10:54:37

你这个例子太简单了，要说明白按什么顺序合并。

664571221 发表于 2018-9-20 11:09:18

mikewolf2k 发表于 2018-9-20 10:54
你这个例子太简单了，要说明白按什么顺序合并。
按鼠标选择的顺序，可以框选

自贡黄明儒 发表于 2018-9-20 11:46:56

664571221 发表于 2018-9-20 10:10
能否来一个完整的，这个看不懂，文字不限于这几个，就是文字用+连接

**** Hidden Message *****

start4444 发表于 2018-9-20 14:59:53

szx025 发表于 2018-9-20 17:32:25

kkkkkkkkkkk

yoyoho 发表于 2018-9-21 12:35:55

回覆学习了!!!!!
页: [1] 2 3 4
查看完整版本: 如图有三个文字你好我好他好，选择三个文字用+号连接