实用函数库中的StrIsNum函数

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

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

Ea · 发表于 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)

秋枫 · 发表于 2003-4-27 12:24:00

账号		自动登录	找回密码
密码			注册

实用函数库中的StrIsNum函数

用Numberp函数。

thanks.