论据

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的一个小改动：

copy

(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找上几天的时间。。。

[编程交流] 论据

发表回复

精选推荐