Lee Mac 发表于 2022-7-6 12:02:52

不错，艾伦
 
这是我能看到的唯一改进：
 

(defun foo (L r O D tt / _sq n)
(setq _sq (lambda (#) (* # #)))

(cond ((minusp (setq n (- (_sq (- L r)) (_sq (/ (* O D) (- 2 tt r)))))) nil)

       ((- L (sqrt n)))))

The Buzzard 发表于 2022-7-6 12:06:28

我知道，
 
这就像把30磅的s%#t放在一个5磅的袋子里。

The Buzzard 发表于 2022-7-6 12:09:52

现在你把我绊倒了李，
 
情况如何？

Lee Mac 发表于 2022-7-6 12:13:01

 
实数中不存在负数的平方根

The Buzzard 发表于 2022-7-6 12:14:31

但是在那种情况下，你不能在某个地方用腹肌吗。

alanjt 发表于 2022-7-6 12:19:03

 
哈哈
我想我们不能有我。接得好。

Lee Mac 发表于 2022-7-6 12:23:12

 
但是你正在改变公式…：眨眼：

alanjt 发表于 2022-7-6 12:26:52

 
啊，说得好。

alanjt 发表于 2022-7-6 12:27:27

对#2的一个小改动：
 
(defun foo (L r O D tt / _sq n)
(setq _sq (lambda (#) (* # #)))

(cond ((minusp (setq n (- (_sq (- L r)) (_sq (/ (* O D) (- 2. tt r)))))) nil)

       ((- L (sqrt n)))))

Lee Mac 发表于 2022-7-6 12:33:11

 
很好的地方-那会让你为那个bug找上几天的时间。。。
页: 1 [2]
查看完整版本: 论据