纯lsp字符串反转

llsheng_73

1. (defun reverstr(str /  b)
   
2. (setq b"")
   
3. (while(> str"")
   
4.     (if(<(ascii(substr str 1 1))129)(setq b(strcat(substr str 1 1)b)str(substr str 2))
   
5.      (setq b(strcat(substr str 1 2)b)str(substr str 3))))
   
6. b)
   

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

st788796

不考虑 中文
(vl-list->string (reverse (vl-string->list string)))

llsheng_73

限于水平，我的程序中保证不了不使用中文{:soso_e127:}

newer

对应的API版本：

命令: !xdrx_string_reverse
#<SUBR @0b62244c <EXRXSUBR>>

命令: (setq a "晓东CAD")
"晓东CAD"

命令: (xdrx_string_reverse a)
"DAC东晓"

434939575

好资料。谢谢哝！