关于 简约而不简单

caiqs

建议将简约而不简单里的函数收集起来,放在显眼的地方

另外个人认为,在程序里不要随便用 "最 简" 等字眼,山 外 有 山 , 人 外 有 人

特贴上一个函数 字符串变表,很多人都写过了,不感拘同

;;;师兄 QQ 361865648 2007/9/8 字符串变表

(defun str->lst2(string)
  (mapcar 'vl-symbol-name (read(strcat "(" string ")")))
  )

;;;测试(str->lst2  "my  name  is  cai  quan  sheng")

;;;返回 ("MY" "NAME" "IS" "CAI" "QUAN" "SHENG")

无痕

(str->lst2  "my  name  is \"\" cai  quan  sheng")
(str->lst2  "my  name  is () cai  quan  sheng")

caoyin

(str->lst2  "my  name  is ;cai  quan  sheng")

(str->lst2  "my  name  is 'cai  quan  sheng")