reverse字符串的四种方法及效率的比较

newer

第一种方法：

1. (defun revstr1 (old / i new)
   
2.   (setq new "")
   
3.   (repeat (setq i (strlen old))
   
4.     (setq new (strcat new (substr old i 1))
   
5.           i   (1- i)
   
6.     )
   
7.   )
   
8.   new
   
9. )
   

(defun revstr1 (old / i new)<br />   (setq new "")<br />   (repeat (setq i (strlen old))<br />     (setq new (strcat new (substr old i 1))<br />           i   (1- i)<br />     )<br />   )<br />   new<br /> )<br />

第二种方法：

游客，如果您要查看本帖隐藏内容请回复

第三种方法：

1. (defun revstr3 (mystr / newstr)
   
2.   (setq newstr "")
   
3.   (while (/= mystr "")
   
4.     (setq newstr (strcat newstr (substr mystr (strlen mystr)))
   
5.           mystr         (substr mystr 1 (1- (strlen mystr)))
   
6.     )
   
7.   )
   
8.   newstr
   
9. )
   

(defun revstr3 (mystr / newstr)<br />   (setq newstr "")<br />   (while (/= mystr "")<br />     (setq newstr (strcat newstr (substr mystr (strlen mystr)))<br />           mystr         (substr mystr 1 (1- (strlen mystr)))<br />     )<br />   )<br />   newstr<br /> )<br />

第四种方法：

1. (defun revstr4 (mystr / cnt len)
   
2.   (setq        newstr ""
   
3.         cnt    0
   
4.         len    (strlen mystr)
   
5.   )
   
6.   (while (< cnt len)
   
7.     (setq newstr (strcat newstr (substr mystr (- len cnt) 1))
   
8.           cnt         (1+ cnt)
   
9.     )
   
10.   )
    
11.   newstr
    
12. )
    

(defun revstr4 (mystr / cnt len)<br />   (setq        newstr ""<br />         cnt    0<br />         len    (strlen mystr)<br />   )<br />   (while (< cnt len)<br />     (setq newstr (strcat newstr (substr mystr (- len cnt) 1))<br />           cnt         (1+ cnt)<br />     )<br />   )<br />   newstr<br /> )<br />

计时函数：

1. (defun timer (fun n / start stop)
   
2.   (setq start (getvar "date"))
   
3.   (repeat n (eval fun))
   
4.   (setq stop (getvar "date"))
   
5.   (princ (strcat "Elapsed time for "
   
6.                  (itoa n)
   
7.                  " iterations: "
   
8.                  (rtos (* 86400.0 (- stop start)) 2 2)
   
9.                  " secs.\n"
   
10.          )
    
11.   )
    
12.   (eval fun)
    
13. )
    

(defun timer (fun n / start stop)<br />   (setq start (getvar "date"))<br />   (repeat n (eval fun))<br />   (setq stop (getvar "date"))<br />   (princ (strcat "Elapsed time for "<br />                  (itoa n)<br />                  " iterations: "<br />                  (rtos (* 86400.0 (- stop start)) 2 2)<br />                  " secs.\n"<br />          )<br />   )<br />   (eval fun)<br /> )<br />

测试结果：


(setq a "ABCDEFG")
(timer '(revstr1 a) 100000)
(timer '(revstr2 a) 100000)
(timer '(revstr3 a) 100000)
(timer '(revstr4 a) 100000)
Command: (timer '(revstr1 a) 100000)
Elapsed time for 100000 iterations: 1.83 secs.
"GFEDCBA"
Command: (timer '(revstr2 a) 100000)
Elapsed time for 100000 iterations: 1.04 secs.
"GFEDCBA"
Command: (timer '(revstr3 a) 100000)
Elapsed time for 100000 iterations: 2.34 secs.
"GFEDCBA"
Command: (timer '(revstr4 a) 100000)
Elapsed time for 100000 iterations: 1.65 secs.
"GFEDCBA"

测试结果：第二种方法效率最高。

q3_2006

问个题外话..用什么浏览器可以正常复制代码呀..

newer

q3_2006 发表于 2017-4-29 16:27

鼠标选中代码，拷贝就行了

代码开头点下鼠标， 到最后按住SHIFT点鼠标就选中了。

q3_2006

没考虑中文哈..

newer

q3_2006 发表于 2017-4-29 16:31

你帮改进下啊，这个帖子主要是讨论效率，中文和英文算法是一样的。

q3_2006

借花献佛
(defun HH:StrReverse (stri / STR)  
  (setq str(VL-PRIN1-TO-STRING stri))
  (setq str (strcat "Dim ret \n ret=StrReverse(" str ") "))
  (or *wscript*
      (setq *wscript* (vlax-create-object "ScriptControl"))
  )
  (vlax-put *wscript* 'language "vbs")
  (vlax-invoke-method *wscript* 'ExecuteStatement str)
  (vlax-invoke-method *wscript* 'eval "ret")
)

q3_2006

都没管中文..

newer

q3_2006 发表于 2017-4-29 16:40

你用上面的测试时间代码，测试下时间啊，用abcdefg

q3_2006

(defun reverstr(str / a b)
  (setq b"")
  (while(> str"")
    (if(<(ascii(substr str 1 1))119)(setq b(strcat(substr str 1 1)b)str(substr str 2))
      (setq b(strcat(substr str 1 2)b)str(substr str 3))))
  b)

q3_2006

速度还是版主来..电脑不同速度肯定不同..另外我说的浏览器问题..QQ浏览器..复制带了行号哈..跟原来复制的效果不同..

lhtfhc

看看，学习学习

freefor5127

谢谢楼主分享

marting

向N版学习，看看最快的

HLCAD

回复，学习版主的程序!

newer

q3_2006 发表于 2017-4-29 16:46

我用360安全浏览器，没行号