Lisp中的负无穷大

Question

我正在寻找在Lisp中表示负无穷大的标准方法。 是否有一个符号值，Lisp的算术函数识别为少于所有其他数字？

具体来说，我正在寻找一种优雅的方式来编写以下内容：

(defun largest (lst)
  "Evaluates to the largest number in lst"
  (if (null lst)
    ***negative-inifinity***
    (max (car lst) (largest (cdr lst)))))

Answer 1

ANSI Common Lisp具有bignum ，只要您有足够的空间，它就可以用来表示任意大的数字，但它没有指定“无穷大”值。 某些实现可能，但这不是标准的一部分。

在您的情况下，我认为您必须根据功能的目的重新考虑您的方法：找到列表中的最大数字。 但是，尝试在空列表中找到最大数字是无效/无意义的，因此您需要提供该情况。 因此，您可以定义前提条件，如果不满足，则返回nil或引发错误。 实际上这就是内置函数max作用。

(apply #'max '(1 2 3 4)) => 4
(apply #'max nil) => error

---

编辑：正如Rainer Joswig所指出的，Common Lisp不允许任意长的参数列表 ，因此最好使用reduce而不是apply 。

(reduce #'max '(1 2 3 4))

Answer 2

在ANSI Common Lisp中没有类似的东西。 Common Lisp实现（甚至数学应用程序）的负无穷大表示不同。

例如在LispWorks中用于双浮点数：

CL-USER 23 > (* MOST-NEGATIVE-DOUBLE-FLOAT 10)
-1D++0