如何只消费Scheme中的第一个返回值？

Question

给定一个返回多个值的Scheme函数，例如：

(exact-integer-sqrt 5) ⇒ 2 1

我怎么能只使用第一个返回值，而忽略其他返回值呢？

Answer 1

您可以使用call-with-values inside宏：

(define-syntax first-val
  (syntax-rules ()
    ((first-val fn)
     (car (call-with-values (lambda () fn) list)))))

(first-val (values 1 2 3 4))
(first-val (exact-integer-sqrt 5))

如果你知道返回值的数量，还有define-values和let-values。

(define-values (x y) (exact-integer-sqrt 5)) ;global

(let-values ([(x y z) (values 1 2 3)]) ;local
    x)

来源：R7RS report

Answer 2

只需使用let-values

(let-values (((root rem) (exact-integer-sqrt 5)))
  root)

上面的代码将在单独的变量中提取两个结果，您可以选择所需的变量。