传递字符窜返回颠倒的字符窜,请大家检查有问题没有

snigefqb

2. ;;;带*号的变量为全局变量                                       
   
3. ;;;-------------------------------------------------------------
   
4. ;;;                       <<函数名字>>                          
   
5. ;;;   YY:reverse_string                                         
   
6. ;;;-------------------------------------------------------------
   
7. ;;;                         <<说明>>                           
   
8. ;;;   传递字符窜返回颠倒的字符窜                                
   
9. ;;;-------------------------------------------------------------
   
10. ;;;                         <<条件>>                           
    
11. ;;; (list (list str))                                          
    
12. ;;; str为字符窜                                                
    
13. ;;;-------------------------------------------------------------
    
14. ;;;                           改进方式                          
    
15. ;;; 检查中文码是否大于127                                       
    
16. ;;;-------------------------------------------------------------
    
17. (defun YY:reverse_string (YY:reverse_string_list /  YY:reverse_string_str  YY:reverse_string_list YY:reverse_string_list1)
    
18.   (if (= 1 (length YY:reverse_string_list));判断传递的参数是否为1个
    
19.     (if (= 'str (type (setq YY:reverse_string_str (car YY:reverse_string_list))));判断满足条件的的参数类型是否符合子函数的要求
    
20.       (progn
    
21.   (setq YY:reverse_string_list (vl-string->list YY:reverse_string_str));转码 将符号设置为以表形式定义的函数
    
22.   (while  YY:reverse_string_list
    
23.        (if (> (nth 0 YY:reverse_string_list) 127);当中文为大于127的两个码组成
    
24.        (progn
    
25.          (setq YY:reverse_string_list1 (cons (nth 0 YY:reverse_string_list) (cons (nth 1 YY:reverse_string_list) YY:reverse_string_list1)));中文取两个码
    
26.          (setq YY:reverse_string_list (cddr YY:reverse_string_list));
    
27.          );end_if->t->end_progn
    
28.        (progn
    
29.          (setq YY:reverse_string_list1 (cons (nth 0 YY:reverse_string_list) YY:reverse_string_list1));取一码
    
30.          (setq YY:reverse_string_list (cdr YY:reverse_string_list))
    
31.          );end_if->nil->end_progn
    
32.        );end_if
    
33.     );end_while
    
34.   (vl-list->string YY:reverse_string_list1);将一系列与整数表相关联的字符组合成字符串
    
35.   );end_prong
    
36.       );end_if->t->end_if
    
37.     (princ "\nYY:reverse_string函数 传递的参数不为1,请检查!");end_if->nil
    
38.     );end_if
    
39.   );end_defun

;;;带*号的变量为全局变量                                        <br /> ;;;-------------------------------------------------------------<br /> ;;;                       <<函数名字>>                          <br /> ;;;   YY:reverse_string                                         <br /> ;;;-------------------------------------------------------------<br /> ;;;                         <<说明>>                            <br /> ;;;   传递字符窜返回颠倒的字符窜                                <br /> ;;;-------------------------------------------------------------<br /> ;;;                         <<条件>>                            <br /> ;;; (list (list str))                                           <br /> ;;; str为字符窜                                                 <br /> ;;;-------------------------------------------------------------<br /> ;;;                           改进方式                          <br /> ;;; 检查中文码是否大于127                                       <br /> ;;;-------------------------------------------------------------<br /> (defun YY:reverse_string (YY:reverse_string_list /  YY:reverse_string_str  YY:reverse_string_list YY:reverse_string_list1)<br />   (if (= 1 (length YY:reverse_string_list));判断传递的参数是否为1个<br />     (if (= 'str (type (setq YY:reverse_string_str (car YY:reverse_string_list))));判断满足条件的的参数类型是否符合子函数的要求<br />       (progn<br />   (setq YY:reverse_string_list (vl-string->list YY:reverse_string_str));转码 将符号设置为以表形式定义的函数<br />   (while  YY:reverse_string_list<br />        (if (> (nth 0 YY:reverse_string_list) 127);当中文为大于127的两个码组成<br />        (progn<br />          (setq YY:reverse_string_list1 (cons (nth 0 YY:reverse_string_list) (cons (nth 1 YY:reverse_string_list) YY:reverse_string_list1)));中文取两个码<br />          (setq YY:reverse_string_list (cddr YY:reverse_string_list));<br />          );end_if->t->end_progn<br />        (progn<br />          (setq YY:reverse_string_list1 (cons (nth 0 YY:reverse_string_list) YY:reverse_string_list1));取一码<br />          (setq YY:reverse_string_list (cdr YY:reverse_string_list))<br />          );end_if->nil->end_progn<br />        );end_if <br />     );end_while<br />   (vl-list->string YY:reverse_string_list1);将一系列与整数表相关联的字符组合成字符串<br />   );end_prong<br />       );end_if->t->end_if <br />     (princ "\nYY:reverse_string函数 传递的参数不为1,请检查!");end_if->nil<br />     );end_if <br />   );end_defun

tryhi

你这传参是不是有点反人类？另外128好像是有一个很特殊的符号

;;字符串倒置
(defun reverse_string(str / a)
        (setq str(vl-string->list str)a"")
        (while
                (if(<(car str)129)
                        (setq a(strcat(chr(car str))a)str(cdr str))
                        (setq a(strcat(strcat(chr(car str))(chr(cadr str)))a)str(cddr str))))
        a
)

(reverse_string "ab今天的天气vevrgood好")

snigefqb

tryhi 发表于 2021-4-16 11:52
你这传参是不是有点反人类？另外128好像是有一个很特殊的符号

;;字符串倒置

参数传递是因为某些需要多个参数的,但是某些参数可以像函数一样省略,个人习惯

e2002

2021开始 LISP支持 unicode了，一个中文字也是一个字符长度。