传递字符窜返回颠倒的字符窜,请大家检查有问题没有
;;;带*号的变量为全局变量;;;-------------------------------------------------------------
;;; <<函数名字>>
;;; YY:reverse_string
;;;-------------------------------------------------------------
;;; <<说明>>
;;; 传递字符窜返回颠倒的字符窜
;;;-------------------------------------------------------------
;;; <<条件>>
;;; (list (list str))
;;; str为字符窜
;;;-------------------------------------------------------------
;;; 改进方式
;;; 检查中文码是否大于127
;;;-------------------------------------------------------------
(defun YY:reverse_string (YY:reverse_string_list /YY:reverse_string_strYY:reverse_string_list YY:reverse_string_list1)
(if (= 1 (length YY:reverse_string_list));判断传递的参数是否为1个
(if (= 'str (type (setq YY:reverse_string_str (car YY:reverse_string_list))));判断满足条件的的参数类型是否符合子函数的要求
(progn
(setq YY:reverse_string_list (vl-string->list YY:reverse_string_str));转码 将符号设置为以表形式定义的函数
(whileYY:reverse_string_list
(if (> (nth 0 YY:reverse_string_list) 127);当中文为大于127的两个码组成
(progn
(setq YY:reverse_string_list1 (cons (nth 0 YY:reverse_string_list) (cons (nth 1 YY:reverse_string_list) YY:reverse_string_list1)));中文取两个码
(setq YY:reverse_string_list (cddr YY:reverse_string_list));
);end_if->t->end_progn
(progn
(setq YY:reverse_string_list1 (cons (nth 0 YY:reverse_string_list) YY:reverse_string_list1));取一码
(setq YY:reverse_string_list (cdr YY:reverse_string_list))
);end_if->nil->end_progn
);end_if
);end_while
(vl-list->string YY:reverse_string_list1);将一系列与整数表相关联的字符组合成字符串
);end_prong
);end_if->t->end_if
(princ "\nYY:reverse_string函数 传递的参数不为1,请检查!");end_if->nil
);end_if
);end_defun
本帖最后由 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好") tryhi 发表于 2021-4-16 11:52
你这传参是不是有点反人类？另外128好像是有一个很特殊的符号
;;字符串倒置
参数传递是因为某些需要多个参数的,但是某些参数可以像函数一样省略,个人习惯 2021开始 LISP支持 unicode了，一个中文字也是一个字符长度。
页:
[1]