明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1233|回复: 3

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

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


发表于 2021-4-16 11:52:23 | 显示全部楼层
本帖最后由 tryhi 于 2021-4-16 15:04 编辑

你这传参是不是有点反人类?另外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好")
 楼主| 发表于 2021-4-16 16:02:21 | 显示全部楼层
tryhi 发表于 2021-4-16 11:52
你这传参是不是有点反人类?另外128好像是有一个很特殊的符号

;;字符串倒置

参数传递是因为某些需要多个参数的,但是某些参数可以像函数一样省略,个人习惯
发表于 2021-4-16 17:44:11 | 显示全部楼层
2021开始 LISP支持 unicode了,一个中文字也是一个字符长度。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-10-2 04:43 , Processed in 0.156759 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表