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

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

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

===============>>#1 票数:7 已采纳

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))

===============>>#2 票数:3

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

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

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

  ask by jforberg translate from so

未解决问题?本站智能推荐: