实用函数库中的StrIsNum函数

秋枫 · 发表于 2003-4-26 21:27:00

实用函数库中的StrIsNum函数对"-3.4", "3e6", "-3e5", "3e-5"之类的数字均判断为非数。这个函数有重大缺陷。至少总不能负数都不认吧

秋枫 · 发表于 2003-4-27 11:46:00

(defun ea:string_isnum (string /)
(if (numberp (read string))
T
nil
)
)
_$ (mapcar '(lambda (x) (numberp (read x))) '("-3.4" "3e6" "-3e5" "3e-5"))
(T T T T)

实用函数库中的StrIsNum函数

发表回复

精选推荐

浏览过的版块