字串列表拼接为字符串

dcl1214

字符串拼接，调用频繁且字符量大的时候，速度很关键，哪位还有更快的字符串拼接，一起切磋一下

1. (defun $pin-jie$
   
2.        (strs fgf / a bars len str str str-last strs-car strs-n)
   
3.   (if (and strs
   
4.      fgf
   
5.      (= (type strs) 'list)  ;必须是表格式
   
6.      (setq strs (vl-remove nil strs)) ;空对象删除
   
7.      (setq strs-car (CAR strs))
   
8.      (= (type strs-car) 'STR)
   
9.           ;第一个必须是字符串
   
10.      (= (type fgf) 'str)
    
11.       )
    
12.     (progn
    
13.       (setq strs (cdr strs))
    
14.       (setq strs (reverse strs))
    
15.       (setq strs-n nil)
    
16.       (while (setq a (car strs))
    
17.   (setq strs-n (cons a strs-n))
    
18.   (setq strs-n (cons fgf strs-n))
    
19.   (setq strs (cdr strs))
    
20.       )
    
21.       (setq strs-n (cons strs-car strs-n))
    
22.           ;添加分隔符
    
23.       (setq str (vl-catch-all-apply 'apply (list 'strcat strs-n)))
    
24.           ;快速拼接一次
    
25.       (if (vl-catch-all-error-p str)  ;拼接出错了（估计出现了非字串现象）
    
26.   (progn
    
27.     (setq
    
28.       strs-n (mapcar
    
29.          (function (lambda (a)
    
30.          (if (and a (/= (type a) 'str))
    
31.            (setq a (vl-prin1-to-string a))
    
32.          )
    
33.          a
    
34.              )
    
35.          )
    
36.          strs-n
    
37.        )
    
38.     )        ;强制转换为字串格式
    
39.     (setq str (vl-catch-all-apply 'apply (list 'strcat strs-n)))
    
40.           ;再次拼接
    
41.     (if (vl-catch-all-error-p str) ;拼接出错了
    
42.       (setq str nil)    ;做空变量
    
43.     )
    
44.   )
    
45.       )
    
46.     )
    
47.   )
    
48.   str          ;返回给上一级
    
49. )
    
50. 共计：900000个字符，耗时:0.985
    
51. ; 9 表格 从 #<editor "C:/Users/Administrator/Desktop/字符拼接.LSP"> 加载
    
52. _$
    
53. 共计：900000个字符，耗时:0.937
    
54. ; 9 表格 从 #<editor "C:/Users/Administrator/Desktop/字符拼接.LSP"> 加载
    
55. _$
    
56. 共计：900000个字符，耗时:0.953
    
57. ; 9 表格 从 #<editor "C:/Users/Administrator/Desktop/字符拼接.LSP"> 加载
    
58. _$
    
59. 共计：1000000个字符，耗时:1.375
    
60. ; 9 表格 从 #<editor "C:/Users/Administrator/Desktop/字符拼接.LSP"> 加载
    
61. _$
    
62. 共计：1000000个字符，耗时:1.062

(defun $pin-jie$<br />        (strs fgf / a bars len str str str-last strs-car strs-n)<br />   (if (and strs<br />      fgf<br />      (= (type strs) 'list)  ;必须是表格式<br />      (setq strs (vl-remove nil strs)) ;空对象删除<br />      (setq strs-car (CAR strs))<br />      (= (type strs-car) 'STR)<br />           ;第一个必须是字符串<br />      (= (type fgf) 'str)<br />       )<br />     (progn<br />       (setq strs (cdr strs))<br />       (setq strs (reverse strs))<br />       (setq strs-n nil)<br />       (while (setq a (car strs))<br />   (setq strs-n (cons a strs-n))<br />   (setq strs-n (cons fgf strs-n))<br />   (setq strs (cdr strs))<br />       )<br />       (setq strs-n (cons strs-car strs-n))<br />           ;添加分隔符<br />       (setq str (vl-catch-all-apply 'apply (list 'strcat strs-n)))<br />           ;快速拼接一次<br />       (if (vl-catch-all-error-p str)  ;拼接出错了（估计出现了非字串现象）<br />   (progn<br />     (setq<br />       strs-n (mapcar<br />          (function (lambda (a)<br />          (if (and a (/= (type a) 'str))<br />            (setq a (vl-prin1-to-string a))<br />          )<br />          a<br />              )<br />          )<br />          strs-n<br />        )<br />     )        ;强制转换为字串格式<br />     (setq str (vl-catch-all-apply 'apply (list 'strcat strs-n)))<br />           ;再次拼接<br />     (if (vl-catch-all-error-p str) ;拼接出错了<br />       (setq str nil)    ;做空变量<br />     )<br />   )<br />       )<br />     )<br />   )<br />   str          ;返回给上一级<br /> )<br /> 共计：900000个字符，耗时:0.985<br /> ; 9 表格 从 #<editor "C:/Users/Administrator/Desktop/字符拼接.LSP"> 加载<br /> _$ <br /> 共计：900000个字符，耗时:0.937<br /> ; 9 表格 从 #<editor "C:/Users/Administrator/Desktop/字符拼接.LSP"> 加载<br /> _$ <br /> 共计：900000个字符，耗时:0.953<br /> ; 9 表格 从 #<editor "C:/Users/Administrator/Desktop/字符拼接.LSP"> 加载<br /> _$ <br /> 共计：1000000个字符，耗时:1.375<br /> ; 9 表格 从 #<editor "C:/Users/Administrator/Desktop/字符拼接.LSP"> 加载<br /> _$ <br /> 共计：1000000个字符，耗时:1.062

你有种再说一遍

SIMD每秒13G ( _> )

wzg356

出错是strcat拼接了表而不是字符串

代码里面至少有4次全循环 while apply mapcar  算半次的vl-remove  reverse
最优解是减少循环，变量多点代码难看点没关系，能否在一次或两次循环处理好


第一个apply ....strcat  可以在while内处理好

kozmosovia

99%的人一年中99%的时间遇不到需要用lisp连接900000个字符。提速到一微秒也没啥意义。

13869574130

99%的人一年中99%的时间遇不到需要用lisp连接900000个字符。提速到一微秒也没啥意义

yjwht

学习了，提点小问题：

baitang36

用来对抗破解，用strcat来拼接字符串，比直接用vl-list->string破解难度更大一点。
vl-list->string有自动处理程序，可以一键还原。

chslwj521

学习了，路过踩下。

dcl1214

baitang36 发表于 2025-3-5 16:24
用来对抗破解，用strcat来拼接字符串，比直接用vl-list->string破解难度更大一点。
vl-list->string有自动 ...

学习了！！！