85问答库 > 哪位大侠帮我解决如下问题：LISP程序加载成功后，为什么不能执行？提示错误: no function definition: =0

哪位大侠帮我解决如下问题：LISP程序加载成功后，为什么不能执行？提示错误: no function definition: =0

2024-12-02 20:53:02

推荐回答（3个）

回答1：

提示错误: no function definition: =0
错误说明是说：没有=0这个函数，你把=号和0中间加个空格就行了。

回答2：

(defun c:ZC()
(setq i 1)
(setq js 0)
(while (<= i 100)
(if (progn (= 0 (rem i 3)) (= 0 (rem i 11)))
(progn
(setq js (+ js 1))
(setq jg (strcat jg (itoa i)))
)
)
(setq i (1+ i))
)

(setq jg (strcat "能被3或11整除的数共" (itoa js) "个" ))

)

这样改能运行了不知道结果对没主要是不知道你要达到什么效果

回答3：

用"(and (= 0 (rem i 3) (= 0 (rem i 11)))）"代替"
(=0 (rem i 3) (rem i 11) )"一试。