如何编写一个返回多个值的常见lisp函数

Question

我正在对lisp http://common-lisp.net/language.html#sec-1做一个啧啧 ,我想知道如何编写这个函数:

(my-floor 1.3) 
 => 1 0.3

Answer 1

用途values:

(defun foo (x y)
  (values x y (+ x y) (cons x y)))

试试这个功能:

> (foo 2 pi)
2 ;
3.1415926535897932385L0 ;
5.1415926535897932383L0 ;
(2 . 3.1415926535897932385L0)

使用返回的值multiple-value-bind:

(multiple-value-bind (a b sum pair) (foo 1 2)
  (list a b sum pair))
==> (1 2 3 (1 . 2))

或(setf values).

另请参阅Common Lisp中的值函数.