azjmjsj 发表于 2004-9-28 13:20:00

[求助]

<U><FONT color=#800080>(defun sr(/x k$)<BR>(setq x nil n 0)<BR>               (while(setq r (getreal(strcat "\nenter a number" k$ ":")))<BR>                                       (setq n(+1 n))<BR>                                       (setq x(cons r x))<BR>                                       )<BR>               (setq x(reverse x))<BR>               )<BR>(sr/xx "负荷")<BR>(setq xx x)<BR>(print xx)</FONT></U>


<FONT color=#800080><U>上面一段lisp程序中 (sr/xx "负荷")是什么意思，请解释一下，谢谢！！！</U></FONT>

meflying 发表于 2004-9-28 13:44:00

你哪儿弄来的?一堆乱七八糟的东西,我的建议是不要去看它
页: [1]
查看完整版本: [求助]