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

marting · 发表于 2017-4-29 17:31:43

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

修改了下，可以支持中文了。

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

q3_2006 · 发表于 2017-4-29 17:43:35

marting 发表于 2017-4-29 17:31

大师的代码我收了不少哈..谢谢分享了..

q3_2006 · 发表于 2017-4-29 17:44:46

newer 发表于 2017-4-29 17:17

现在就是360了..就是要这样..

aimisiyou · 发表于 2017-4-29 20:18:14

本帖最后由 aimisiyou 于 2017-4-29 20:45 编辑

进来看看。写个递归的吧。
(defun revstr (str)
  (if (= (strlen str) 1)
   (setq va str)
   (setq va (strcat
                     (revstr (substr str (+ 1 (/ (strlen str) 2))))
                     (revstr (substr str 1 (/ (strlen str) 2) ))
            )
   )
)
)
(defun timer (fun n / start stop)
  (setq start (getvar "date"))
  (repeat n (eval fun))
  (setq stop (getvar "date"))
  (princ (strcat "Elapsed time for "
               (itoa n)
               " iterations: "
               (rtos (* 86400.0 (- stop start)) 2 2)
               " secs.\n"
      )
  )
  (eval fun)
)

(setq a "ABCDEFG")
(timer '(revstr a) 100000)
REVSTR
TIMER
"ABCDEFG"
Elapsed time for 100000 iterations: 9.4 secs.
"GFEDCBA"
_$

marting · 发表于 2017-4-29 20:34:49

q3_2006 发表于 2017-4-29 17:44

你可以点普通浏览，然后选中代码，CTRL+C

向嘟嘟 · 发表于 2017-4-29 21:16:15

谢谢，看看源码。

ycao · 发表于 2017-4-29 21:58:14

学习一下。

kqqt6236 · 发表于 2017-4-30 00:02:59

回复学习。

aimisiyou · 发表于 2017-4-30 10:36:22

本帖最后由 aimisiyou 于 2017-4-30 10:50 编辑

marting 发表于 2017-4-29 17:31

(vl-list->string '(196 227 195 199 186 195 176 161))
"你们好啊"

(vl-list->string '(176 161 186 195 195 199 196 227))
"啊好们你"

对含有汉字的字符串进行vl-string->list获得的表进行相关排序后再vl-list->string。

yjch · 发表于 2017-4-30 10:47:28

太强大，答疑解惑了，好好学习天天向上

zjy2999 · 发表于 2017-4-30 11:24:26

学习！！！！！！！！！！！

clm840917 · 发表于 2017-4-30 22:40:12

选择适合自己的

marting · 发表于 2017-4-30 23:05:27

aimisiyou 发表于 2017-4-30 10:36

16楼代码就是适合中文的了，两个一组然后在REVERSE，确保中文的ASCII两个不颠倒。

marting · 发表于 2017-4-30 23:06:37

aimisiyou 发表于 2017-4-29 20:18

你什么机器啊，用了9秒多

kqqt6236 · 发表于 2017-5-1 00:14:58

谢谢分享。

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

[研讨] reverse字符串的四种方法及效率的比较